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Communication Line <CL) Handler for TSX-Plus 



i Virtual segment ID word 



TSCLO is a system virtual overlay which provides support for the 

Communication Line <CL) handler for TSX-Plus. 

This handler supports I/O to communication lines declared by 

use of the lOLINE macro when the system is generated. 

The device names are CLO.- CL1> ...» CL7> CIO* Cll> .... C17. 

Internal queueing is used to allow concurrent input/output operations 

to take place on all of the devices at the same time. 

XON/XOFF support is provided. 

Copyright (c) 1984, 1985. 
S&H Computer Systems, Inc. 
Nashville, Tennessee USA 
All rights reserved 



Global definitions 

. GLOBL CLIOQ, CLABRT, CLTIMR, CLINCP, CLXICP, CLXBRK 

. GLOBL SETDTR, CLREST, CLCLER 

Global references 

GLOBL OETRTQ, CQ«LOT, CQ*RTN, KPAR5. CQ*PA5, Q. DEVX 

GLOBL CQfRO, MRKTHD, CQ*LNK, VCXTRM, VCXCTL, CL«ORG 

. GLOBL CLTOTL, LSW3. Q. JOB, LXCL, CL*XLN, CI DEVX 

. GLOBL PSW, INTPRI, PTWRD, «XCHAR, TRNSTR 

GLOBL Q. WCNT, Q. BLKN, Q. LINK, lOFIN, CM*MCC, CM*FFI 

. GLOBL fCTRLS, LSW3, SETSPD, CDSXON, CM«WRT 

. GLOBL TTINCP, LINIR, FORCEX, LNMAP 

. GLOBL CL*EPN, CL*EPS, CL*EPP, CM*EFP, CLEOFS 

. GLOBL CDSTRT, LCDTYP, PTBYT, CLVERS, CLSFWB 

. GLOBL LHIRBS, *HISTP, CLSFAB, NEDCDO, NEDCLO 

. GLOBL LHIRBB, LHIRBG, LHIRBP, LHIRBA 

. GLOBL Q. UNIT, Q. FUNC, Q. CSW, CS*ERR, C. CSW 

. GLOBL CO*FF, CO«TAB, CO*LFO, CO*LFI , CO*FFO 

. GLOBL CO*BNO, COfBNI, LSWIO, CO*SBT 

GLOBL CM*TBS, CM*IRG, CM*ON, CM*EOF 

GLOBL CL*OPT, CL*STA, SILFET, CL*ORA, CLSFIC, CLSFOC 

. GLOBL FRKGET, FORKQ, FQ*PRI, FQ*RTN, FP*IOA 

. GLOBL CL*COL, CL«RQH, CL«WQH, CLABF 

GLOBL CLCQE, CLLQE, CM*ORP, CL*ORS, CL*ORP 

. GLOBL CL*ORS, CL*ORE, CL*ORB, GTBYT, CLSFMS 

GLOBL CS*EOF, CO«DTR, CM*DTR, CLSFRL 

GLOBL CM«FFS, CL*LIN, CL*LEN, CO*LC, CL«WID 

GLOBL CO*CTL, CL*SKP, CO*CR, KPAR6, Q. PAR, Q. BUFF 

GLOBL CLSFCH, CLSFBC, CLSFRB, GLSFHS, CLSFDL 

. GLOBL CLSFSO, CLSFCO, CLSFSL, CLSFSS, CLSFSW 

. GLOBL MS«DTR, CDSDSS, CDGDSS, OVRHC, LCDTYP 

. GLOBL CM*CRL, CDGDSS, MS*CAR, MS*RNG 

. GLOBL CM*BRK, CDSBRK, MS«BRK, CLSFSP 
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Macro definitions 

Disable interrupts 

. MACRO DISABL 
BIS #340, @#PSW 
. ENDM DISABL 

Enable interrupts 

. MACRO ENABL 

BIC INTPRI,e#PSW 

. ENDM ENABL 



jDisable interrupts 



j Enable interrupts 



Call another system virtual overlay region 

. MACRO OCALL ENTADD 

CALL OVRHC 

. WORD ENTADD 

. ENDM OCALL 
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4 




5 


000015 


6 


000012 


7 


000014 


8 


000023 


9 


000021 


10 


000032 


11 


000040 



. SBTTL Parameter definitions 
Ascii characters 



CR 

LF 

FF 

CTRLS 

CTRLQ 

CTRLZ 

SPACE 



15 
12 
14 
23 
21 
32 
40 



Carriage return 

Line feed 

Form feed 

Ctrl-S 

Ctrl-Q 

Ctrl-Z 

Space 
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1 

m 

3 
4 

5 000002 177777 

6 000004 000000 

7 000006 000000 



. SBTTL Data areas 
General data areas 
1 



RTNCNT: 


. WORD 


- 


CQH: 


. WORD 





ABTQFL: 


. WORD 






/Counts if someone in RTNQ routine 

;List head for Q elements waiting to be freed 

i non-zero ==> RTNQ fork request pending 
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1 

e. 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

-IT nnnni r\ m nriai. 



14 000012 

15 000014 
16 

17 
IS 

19 000016 

20 000024 

21 000030 

22 000032 

23 000040 

24 000042 

25 000046 

26 000054 

27 000056 
28 

29 
30 
31 

32 000060 

33 000062 

34 000064 

35 000066 
36 

37 
38 
39 
40 

41 000070 

42 000074 

43 000100 

44 000106 

45 000110 

46 000114 

47 000116 

48 000122 

49 000124 
50 

51 
52 
53 

54 000130 

55 000134 

56 000136 

57 000142 



010446 
010546 



013704 
001406 
016437 
001002 
005037 

005704 
001004 



012605 
012604 
012603 
000207 



116405 
042705 
126437 
001002 
062705 
006305 
016501 
001002 
000137 



. SBTTL CLENTR — Entry point for processing a new I/O request 

CLIOQ is called by the system I/O initiation routine to start a neui 

I/O request. 

We process some requests immediatelyj but for most (such as read and 

write) uie move the request from the handler queue onto an internal 

queue. 

Inputs: 
CLCQE = Current queue request. 
CLLQE = Last queue request. 



CLIOQ: 



MOV 
MOV 
MOV 



R3, -<3P) 
R4, -(SP) 
R5, -(SP) 



Remove current queue element from list pointed to by handler header 



CLQOK: 



OOOOOOG 



OOOOOOC OOOOOOG 



OOOOOOG 



1*: 



There are no remaining 
Return to the system. 



; i «» Disable interrupts *■* 
; i Get pointer to queue element 
j i Br if there is no queue element to process 
0. LINK-Q. BLKN<R4), CLCQEi i i Remove queue element from list 

; j Br if more elements pending 
j j Say there are no pending queue elements 
** Enable interrupts *«■ 
Is there a queue element to process? 
Br if yes 

queue elements for the handler to process. 



DISABL 




MOV 


CLCQE, R4 


BEQ 


1* 


MOV 


Q. LINK-Q 


BNE 


1* 


CLR 


CLLQE 


ENABL 




TST 


R4 


BNE 


3« 



MOV 


<SP)+,R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


RETURN 





There is a queue request to be processed. 
R4 = Points to Q. BLKN cell in queue element. 
Determine if I/O is being done to a valid CL 



unit 



OOOOOOC 

177770 

OOOOOOC 

000010 

OOOOOOG 

000322 ' 



3*: 



OOOOOOG 



4*: 



MOVB 

BIC 

CMPB 

BNE 

ADD 

ASL 

MOV 

BNE 

JMP 



Q. UNIT-Q. BLKN<R4), R5i Get device unit number 
#•^07, R5 jClear all but unit # field 

Q. DEVX-Q. BLKN<R4), CIDEVX i Is the a CI unit? 



4« 

#8. , R5 

R5 

CL«LIX(R5> 

2* 

CLERR 



Rl 



Br if not 

Bias CI unit numbers fay B 

Convert to word index 

Is this CL unit associated with a line? 

Br if yes — This is a valid CL unit 

Return immediate hard error code 



Get 
R5 = 



the function code and 
• CL unit index number. 



see if this is a .READ, .WRITE, or . SPFUN. 



1 1 6403 OOOOOOC 

001037 

006364 OOOOOOC 

103415 



2*: 



MOVB Q. FUNC-Q. BLKN(R4),R3 i Get the function code 

BNE CLSPFN > Br if this is a SPFUN operation 

ASL Q. WCNT-Q. BLKN<R4) ; Convert word count to # bytes 

BCS CLWRIT ; Br if this is a write operation 



TSCLO - 
CLENTR • 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 

DO 

87 
88 
89 
90 
91 
92 
93 
94 
95 
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— Entry point for processing a new I/O request 



000144 001002 

000146 000137 00150c 



BNE 
JMP 



CLREAD 
CLQXIT 



Br if this is a read operation 
Br if this is a seek operation 



This is a .READ operation. 

Move queue entry to internal read queue for this unit. 



000152 004737 006226' 
000156 012703 OOOOOOG 
000162 004737 005732' 



CLREAD: CALL 
MOV 
CALL 



LINON 

#CL*RQH, R3 
MOVQ 



i Turn on the 1 ine 

i Get pointer to read queue head 

i Move queue element to internal queue 



Call routine to move any pending characters in silo buffer for this 
line into the data buffer. 



000166 004737 002212' 



CALL 



IRINGG 



; Move chars from silo buffer to data buffer 



Finished starting the read operation. 

The queue element ujill be returned to the system when me have 

completed the operation. 



000172 000137 000016' 



JMP 



CLQOK 



This is a . WRITE request. 

Move queue element to internal write queue for this CL unit. 



000176 005464 OOOOOOC CLWRIT: NEG 

000202 052765 OOOOOOG OOOOOOG CLWRTB: BIS 

000210 012703 OOOOOOG MOV 

000214 004737 005732' CALL 

000220 004737 006226' CALL 



Q. WCNT-Q. BLKN<R4) ;Make write byte count positive 

#CM*WRT, CL*STA(R5)i Set flag that says a write has been done 

#CL*WGIH> R3 j Get pointer to write queue head 

MOVQ ; Move queue element to write queue 

LINON ; Turn on the line 



000224 004737 003130' 



000230 000137 000016' 



Move characters from data buffer to output ring buffer and then 
start output to the line. 

CALL ORINGP ; Move chars from data buffer to ring buffer 

Finished starting a write operation 

JMP CLQOK 
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CLSPFN — . SPFUN processing 
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'n . 
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3 

4 

5 

6 

7 

8 

9 
10 000234 
11 
12 
13 

14 000234 

15 000240 

16 000242 

17 000246 

18 000250 

19 000254 

20 000256 

21 000262 

22 000264 

23 000270 

24 000272 

25 000276 

26 000300 

27 000304 
28 

29 
30 

31 000310 

32 000314 

33 000316 
34 

35 
36 

37 000322 

38 000326 

39 000334 



042703 
00 1 430 
020327 
101420 
020327 
103422 
020327 
101410 
020327 
103414 
020327 
101011 
162703 
162703 



162703 
006303 
000173 



016400 

052760 
000137 
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SBTTL CLSPFN — .SPFUN processing 



The current queue request is for a .SPFUN operation 
At this point the following registers are set up: 

Rl = TSX-Plus line index number of line being used by 

R3 = .SPFUN code from Q. FUNC. 

R4 = Pointer to Q. BLKN field of current queue element 

R5 = CL unit index number 



CL unit. 



CLSPFN: 

; See which qroup of special functions this code is in 



177400 

000004 

000201 

000206 

000250 

000266 

000041 
000174 

000001 
000340 ' 



OOOOOOC 

ooooooe ooooooG 

001502' 



2$: 



BIC #'^C<377>, R3 

BEQ CLERR 

CMP R3, #MAXSFO 

BL03 3* 

CMP R3, #201 

BLO CLERR 

CMP R3, #MAXSF1 

BLOS 2* 

CMP R3, #250 

BLO CLERR 

CMP R3, #MAXSF2 

BHI CLERR 

SUB #247-MAXSFl,R3 

SUB #200-MAXSF0, R3 



Clear sign extension 

Function code of O is invalid 

Too big for group 0? 

Br if in group 

Is this code too small? 

Br if too small 

Is it in group 1? 

Br if yes 

Is it in group 2? 

Br if too small for group 2 

Is it within group 2? 

Br if not 

Correct for group 1 codes 

Correct for group codes 



Branch off to processing routine 



3*: SUB #1,R3 
ASL R3 
JMP eSPFRTN<R3) 



i Subtract lowest function code 

i Convert function code to word table index 

; Enter processing routine 



} Invalid special function code 

CLERR: MOV Q. CSW-Q. BLKN<R4)/ RO i Get address of CSW 

BIS #CS*ERR. C. CSW<RO) i Set hard error flag in CSW 

JMP CLQXIT i Do . DRFIN to tell system this op is completed 
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3 






4 
5 
6 


000340 








7 






8 


000340 


000422 ' 


9 


000342 


000552 ' 


10 


000344 


001502' 


11 


000346 


001502' 


12 




000004 


13 






14 






15 






16 


000350 


000432 ' 


17 


000352 


000442 ' 


IS 


000354 


000520 ' 


19 


000356 


000532' 


20 


000360 


000552' 


21 


000362 


000602 ' 


22 




000206 


23 






24 






25 






26 


000364 


000636 ' 


27 


000366 


000656 ' 


28 


000370 


000676' 


29 


000372 


000712' 


30 


000374 


000726 ' 


31 


000376 


000742 ' 


32 


000400 


000762 ' 


33 


000402 


001000' 


34 


000404 


000152' 


35 


000406 


001040' 


36 


000410 


001060' 


37 


000412 


000202 ' 


38 


000414 


001136' 


39 


000416 


001214' 


40 


000420 


001224' 


41 




000266 



Branch vector for . aPFUN processing routines based on function code value. 
SPFRTN: 



Oroup 0: Function codes in the range 1 to 4 



SFGRPO: . 

MAXSFO 
t Group 
SFGRPl: . 



WORD 
WORD 
WORD 
WORD 



SFCLOS 
SFTERM 
CLQXIT 
CLQXIT 
<- -SFGRPO: 



/2 



001 - Close file 

002 - Delete file 

003 - Lookup file 

004 - Enter file 
Maximum function code 



value in group 



1: Function codes in the range 201 to 247. 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



MAXSFl 



SFCLER 

SFBREK 

SFREAD 

SFSTAT 

SFTERM 

SFDTR 

200+«. 



201 

202 
203 
204 
205 
206 



Clear flags 

Break transmission control 

Special read u>ith byte count 

Get handler status 

Terminate I/O 

Raise or drop DTR signal 



-SFGRP1>/2Z> .: Highest function code in group 1 



Group 2: Function codes uiith values of 250 or greater. 



SFGRP2: 


. WORD 


SFSOPT 


250 


- 


Set 




. WORD 


SFCOPT 


251 


- 


Clea 




. WORD 


SFSLEN 


252 


- 


Set 




. WORD 


SFSSKP 


253 


- 


Set 




. WORD 


SFSWID 


254 


- 


Set 




. WORD 


SFGMS 


255 


- 


Get 




. WORD 


SFSPD 


256 


- 


Set 




. WORD 


SFABT 


257 


- 


Abor 




. WORD 


CLREAD 


260 


- 


Read 




. WORD 


SFIC 


261 


- 


Get 




. WORD 


SFOC 


262 


- 


Get 




. WORD 


CLWRTB 


263 


- 


Writ 




. WORD 


SFSEFP 


264 


- 


Set 




. WORD 


SFREST 


265 


- 


Rese 




. WORD 


SFGOPT 


266 


_ 


Get 


MAXSF2 


= 


247+«. -SFGRP2?^/2> ; h 


li 


ghest 



option flags 
ir option flags 

page length 

skip lines 

page luidth 

modem status 

transmit/receive speed 
•t all pending read/write requests 
line with byte count 

number of pending input characters 

number of pending output chars 
;e with byte count 

end-of~file output control 
>t CL unit 

current options and settings 
legal function # in group 2 
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Special function # 1 
Close file. 



000422 004737 001660' 
000426 000137 001502' 



SFCLOS: CALL 
JMP 



CLCLOS 
CLQXIT 



i Perform end-of-file operations 
i Finished 



Special function # 201 

Clear handler flags. 

The effect is to clear the flag saying we have received an XOFF 

and to send an XON. 



000432 



SFCLER: 



Rl contains index of TS line in use as CL unit 

R5 contains CL unit index 

Call the routine shared with the equivalent EMT to do the work 



000432 004737 001724' 
000436 000137 001502' 



CALL 
JMP 



CLCLER 
CLQXIT 



i Go do it 

iFinished with operation 



Special function # 202 

Start or stop sending a break. 

Word count non-zero ==> Start sending a break. 

Word count zero ==> End sending a break. 



000442 
000446 



000450 
000456 
000462 
000466 
000472 



000474 
000476 
000502 
000510 



005764 
001412 



052765 
012700 
004737 
004737 
000410 



005000 
004737 
042765 
004737 



OOOOOOC 



SFBREK: TST 
BEQ 



Q. WCNT-Q. BLKN<R4) ; Start or end break? 

1* * Br if we are ending a break 



OOOOOOG OOOOOOQ 
OOOOOOG 
006346 ' 
005514' 



1$: 



006346 ' 

OOOOOOG OOOOOOG 
005514' 



Begin sending a break 

BIS #CM*BRK» CL*STA<R5); Set flag saying we are sending a break 

MOV #MS*BRK^ RO ; Set flag to start break transmission 

CALL SETBRK iCall hardware routine to start sending break 

CALL CLSTRT ; Start transmitter 

BR 9* 

End sending a break 

CLR RO ; Clear break-send flag 

CALL SETBRK iCall hardware routine to end break 

BIC #CM*BRK, CL*STA<R5)i Clear flag that says we are sending a break 

CALL CLSTRT ; Start transmitter 

Fini shed 



000514 000137 001502' 



9*: 



JMP 



CLQXIT 



iFinished with .SPFUN 



Special function # 203 

Read with Q. WCNT indicating the byte count rather than the word count 



000520 042765 
000526 000137 



OOOOOOG OOOOOOG 
000152' 



SPREAD: BIC 
JMP 



#CM*E0FiCL*STA(R5)i Clear end of file status 

CLREAD ; Enter read routine (Q. WCNT = byte count) 
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000532 010246 

000534 004737 
000540 004737 



000544 012602 
000546 000137 



Special function # 204 

Get handler status. 

The following information is stored into the first word of the 

user's buffer: 

High order byte: Handler version number 

Low order byte: 



XL*XFX bit 
XL*XFR bit 1 
XL*CTS bit 2 



1 ==> We have sent XOFF to stop transmission to us. 

1 ==> We have received an XOFF. 

1 ==> Clear To Send <CTS) is asserted. 
Next two are RT 5. 4 compatible 
XL*CD fait 3: 1 ==> Carrier is detected 
XL*RI bit 4: 1 ==> Ring is detected 



001400' 
001540' 



001502' 



SFSTAT: MOV 

CALL 
CALL 

Finished 

MOV 
JMP 



R2, -(SP) 

CLGSTS 
CLPTWD 



(SP)+, R2 
CLQXIT 



iCall common routine to get status 
; Store value into user's buffer 



{Finished with operation 



000552 



000552 042765 OOOOOOG OOOOOOG 



000560 004737 001764' 



i Special function # 205 

> Terminate I/O to the line. 

f 

SFTERM: 

; Set flag saying to ignore input from the line 

i 

BIC #CM$ON, CL*STA(R5)jSay line is turned off 

i 

i Clear input and output silos and other CL unit status 

i 

CALL CLREST i Reset the CL unit 

i 

i Drop Data Terminal Ready 



000564 042765 
000572 004737 



OOOOOOG 
006250 ' 



OOOOOOG 



000576 000137 001502' 



BIC 
CALL 

Fini shed 

JMP 



#CO«DTR, CL«0PT<R5) i Say we want DTR off 
SETDTR iCall routine to drop DTR 



CLQXIT 



000602 005764 
000606 001004 



OOOOOOC 



; Special function # 206 
} Raise or drop DTR signal. 

i 

SFDTR: TST Q. WCNT-Q. BLKN<R4) j Raise or drop DfR? 
BNE 1* i Br if raising DTR 



Drop DTR 
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115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 



000610 
000616 



000620 
000626 
000632 



000636 
000642 
000646 

000652 



000656 
000662 
000666 
000672 



000676 
000702 
000706 



000712 
000716 
000722 



000726 
000732 
000736 



042765 OOOOOOG OOOOOOG 
000403 



052765 OOOOOOG OOOOOOG 1*: 
004737 006250' 2*: 

000137 001502' 



004737 001602' 

050065 OOOOOOG 

004737 006250 ' 

000137 001502' 



004737 001602' 

040065 OOOOOOG 

004737 006250 ' 

000137 001502' 



004737 
010065 
000137 



000742 010246 



001602' 
OOOOOOG 
001502' 



004737 001602' 
010065 OOOOOOG 
000137 001502' 



004737 001602' 
010065 OOOOOOG 
000137 001502' 



BIC 
BR 

Raise DTR 

BIS 

CALL 

JMP 



#CO*DTR, CL*0PT<R5) 
2$ 



; Drop DTR 



#C0*DTR,CL*0PT(R5) ; Raise DTR 

SETDTR ;Call routine to raise 

CLQXIT ; Finished with .SPFUN 



or drop DTR 



Special function # 250 
Set option flags 



SFSOPT: CALL 
BIS 
CALL 
JMP 



GETWRD 

RO, CL*0PT<R5> 

SETDTR 

CLQXIT 



Get word from user's buffer 
Set specified option flags 
Check for DTR status change 



Special function # 251 
Clear option flags 



SFCOPT: 



CALL 


GETWRD 


BIC 


RO, CL*0PT(R5) 


CALL 


SETDTR 


JMP 


CLQXIT 



Get word from user's buffer 
Clear specified option flags 
Check for DTR status change 



Special function # 252 
Set page length 



SFSLEN: CALL 
MOV 
JMP 



GETWRD 

RO, CL*LEN<R5> 

CLQXIT 



i Get word from user's buffer 
; Set page length for this unit 



Special function # 253 

Set number of lines to skip at bottom of page. 



SFSSKP: CALL 
MOV 
JMP 



GETWRD 

RO, CL*SKP<R5) 

CLQXIT 



; Get word from user's buffer 
J Set skip lines 



Special function # 254 
Set line width. 



SFSWID: CALL 
MOV 
JMP 



GETWRD 

RO, CL*WID(R5) 

CLQXIT 



)Get word from user's buffer 
i Set 1 ine width 



Special function # 255 
Get modem status 



SFGMS: MOV 



R2, -<SP) 
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sing 


172 








173 








174 


000744 


004737 


OOOOOOG 


175 








176 








177 








178 


000750 


004737 


001540' 


179 








ISO 








lei 








182 


000754 


012602 




183 


000756 


000137 


001502' 


184 








185 








186 








187 








188 








189 


000762 


004737 


001602' 


190 


000766 


103402 




191 


000770 


004737 


0000000 


192 


000774 


000137 


001502' 


193 








194 








195 








196 








197 








198 








199 








200 








201 


001000 


010446 




202 


001002 


116404 


OOOOOOC 


203 








204 








205 








206 


001006 


012703 


OOOOOOG 


207 


001012 


004737 


005622 ' 


208 








209 








210 








211 


001016 


012703 


OOOOOOG 


212 


001022 


004737 


005622 ' 


213 








214 








215 








216 


001026 


004737 


006010' 


217 








218 








219 








220 


001032 


012604 




221 


001034 


000137 


001502' 


222 








223 








224 








225 








226 








227 


001040 


016100 


OOOOOOG 


228 


001044 


166100 


OOOOOOG 
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i Call hardware dependent routine to get the modem status 

i 

CALL GETDSS iCall routine to get the data set status 

i 

i Return status value to 1st word of user's buffer 

i 

CALL CLPTWD » Store value into 1st word of user's buffer 

i Finished 



MOV 
JMP 



(SP)+, R2 
CLQXIT 



Finished I/O operation 



Special function # 256. 
Set transmit/receive speed. 



SFSPD: 


CALL 


GETWRD 




BCS 


1* 




CALL 


SETSPD 


1*: 


JMP 


CLQXIT 



Get word from user's buffer 
Br if invalid buffer address 
Set the speed 
Finished 



Special function # 257. 

Abort all pending read and write requests for the job. 

Inputs: 
R4 = Pointer to 3rd word of . SPFUN queue element. 

SFABT: MOV R4»-<SP) ; Save pointer to current queue element 

MOVE Q. JOB-Q. BLKN(R4), R4 i Get job # from .SPFUN queue element 



Abort pending read requests for this job 



MOV #CL*RQH, R3 
CALL CKABTQ 



i Point to read queue head 
/Abort pending reads for job 



Abort pending write requests for this job 



MOV #CL*WQH, R3 
CALL CKABTQ 



i Point to write queue head 
i Abort pending writs for job 



Call routine to return any freed queue elements to the system 

CALL RTNQ * Return freed queue elements to the system 

Finished 



MOV 
JMP 



<SP)+, R4 
CLQXIT 



J Restore pointer to queue element 
jFinished operation 



Special funct'^cn 4^ oai 

Get number of bytes pending in input silo buffer. 



SFIC: MOV 
SUB 



LHIRBA(R1 ), RO > Get allocated size of input buffer 
LHIRBS<R1 )* RO /Subtract free space to get # chars in buf 
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( 
I 
f 

I 

i 
I 
I 

( 
i 
( 

( 
i 
« 



001050 004737 



001060 
001062 
001066 
001072 
001076 
001100 
001106 
001110 
001112 
001120 
001122 
001124 
001126 
001132 



229 
230 
231 
232 

cShOO 

234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
2S1 
282 
283 
284 
285 001214 



001136 



001136 
001142 
001144 
001150 

001152 



001156 
001162 
001166 
001172 
001176 
001200 
001202 
001204 
001206 



010446 
016500 
166500 
016504 
001412 
032765 
001401 
005200 
032764 
001401 
005200 
012604 
004737 
000137 



004737 
103422 
120027 
001402 
010065 



016502 
012703 
004737 
121627 
001404 
112622 
001402 
077310 
105022 



001540' 
r\r\i KOI ' 



CALL 
JMP 



CLPTWD 
CLQXIT 



i Store value into user's buffer 
i Finished iiiith Operation 



Special function # 262. 

Get number of bytes pending in output ring buffer. 



SFOC: 



OOOOOOG 

ooooooe 

OOOOOOG 
ooooooe OOOOOOG 



OOOOOOG OOOOOOG 2*: 



001540' 
001502' 



001602' 

000377 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
000377 



001210 000137 001502' 



004737 001764' 



1*: 



MOV 


R4, -<SP) 


MOV 


CL*0RA<R5),R0 


SUB 


CL*0RS<R5),R0 


MOV 


CL*LIX<R5),R4 


BEG 


1$ 


BIT 


#CM*EFP,CL*STA<R 


BEQ 


2« 


INC 


RO 


BIT 


#*XCHAR, LSW3<R4) 


BEQ 


1* 


INC 


RO 


MOV 


(SP)+, R4 


CALL 


CLPTWD 


JMP 


CLQXIT 



; Get allocated space for output ring buffer 

i Subtract free space to get # chars in buf 

; Get index # of line ute are assigned to 

; Br if not assigned to a line 

5); Are me doing end-of~file processing? 

i Br if not 

iAdd an extra character 

; Is output transmission going to line now? 

; Br if not 

; Say another character pending for output 

i Restore pointer into queue element 

i Store value into user's buffer 

iFinished with operation 



Special function # 264. 
Set end-of-file output 



processing control information. 



SFSEFP: 



Set form-feed count 



CALL 


GETWRD 


BCS 


9* 


CMPB 


RO, #377 


BEQ 


2« 


MOV 


RO, CL*EPN(R5) 



i Get form-feed count from user's buffer 

; Br if invalid buffer address 

; Don't change form-feed count? 

i Br if don't-change value 

; Set # form-feeds to send at end-of-file 



Set up end-of-file output string 



2«: 
1$: 



MOV 


CL*EPS(R5) 


MOV 


#CLEOFS, R3 


CALL 


GTBYT 


CMPB 


(SP),#377 


BEQ 


9* 


MOVB 


(SP)+, <R2) 


BEQ 


9* 


SOB 


R3, 1* 


CLRB 


(R2) + 


Finished 





R£ 



9$: 



JMP 



CLQXIT 



Get pointer to area where string is 

Get max # bytes allowed for string 

Get next byte from string 

Don't change string? 

Br if don't change 

Move char to string area 

Br if this is end of string 

Loop if we can get more chars 

Terminate string with null 



i Finished 



stored 



Special function # 265. 
Reset CL unit. 



SFREST: CALL 



CLREST 



iCall routine to reset CL unit status 
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286 


001220 


000137 


001502' 




2S7 










288 










289 










290 










291 










292 










293 










294 










295 










296 










297 










298 










299 










300 










301 










302 










303 


001224 






c 


304 










305 










306 










307 


001224 


004737 


001400' 




308 


001230 


004737 


001540' 




309 


001234 


103457 






310 










311 










312 










313 


001236 


016500 


OOOOOOG 




314 


001242 


004737 


001540' 




315 










316 










317 










318 


001246 


016500 


OOOOOOG 




319 


001252 


004737 


001540' 




320 










321 










322 










323 


001256 


016500 


OOOOOOG 




324 


001262 


004737 


001540' 




325 










326 










327 










328 


001266 


016500 


OOOOOOG 




329 


001272 


004737 


001540' 




330 








i 


331 








i 


332 








i 


333 


001276 


016500 


OOOOOOG 




334 


001302 


004737 


001540' 




335 








J 


336 










337 










338 










339 


001306 


010146 






340 


001310 


010500 






341 


001312 


000300 






342 


001314 


052600 







JMP 



CLQXIT 



i Finished 



Special function # 266 

Get current options and settings. 

Returns 13 ujords to user buffer 

1 Handler status as for SPFUN 204 

2 CL options flags 

3 internal flags word 

4 page length 

5 end of page skip lines 

6 page width 

7 TS line number and CL unit number 

8 number end of file form feeds 
9-12 end of file string, ASCIZ up to CLEOFS long 

SFGOPT: 

Get and return status word just as for SPFUN 204 
word 1 

CALL CLGSTS 

CALL CLPTWD 

BCS 9« 



; Get current status word 

; Return to user buffer 

i Error return if no chan or odd buff addr 



Return CL options word 
word 2 

MOV CL*0PT(R5), RO 

CALL CLPTWD 

Return internal status word 
word 3 

MOV CL«STA<R5),R0 

CALL CLPTWD 

Return current page length 
word 4 

MOV CL*LEN(R5>,R0 

CALL CLPTWD 



i Get options word 

i Return to user buffer 



i Get internal status word 
i Return to user buffer 



j Get current length 

j Return to user buffer 



Return current number lines to skip at end of page 
word 5 

MOV CL*SKP(R5),R0 

CALL CLPTWD 



i Get current # skip lines 
; Return to user buffer 



Return current page width 
word 6 

MOV CL*WID(R5),R0 

CALL CLPTWD 



; Get current width 

i Return to user buffer 



Line number being used as CL unit — > low byte 

CL unit number — > high byte (will be > 7 if CI unit); 

word 7 

MOV R1,-<SP) iGet T/S line index 

MOV R5, RO iGet CL unit index 

SWAB RO i Move to high byte 

BIS (SP)+,RO iMerge in line index 
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i 
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343 


001316 


006200 




344 


001320 


004737 


001540' 


345 








346 








347 








348 


001324 


016500 


0000000 


349 


001330 


004737 


001540' 


350 








351 








352 








353 


001334 


010246 




354 


001336 


010346 




355 


001340 


012703 


OOOOOOG 


356 


001344 


016502 


OOOOOOG 


357 


001350 


112246 




358 


001352 


001404 




359 


001354 


004737 


OOOOOOG 


360 


001360 


077305 




361 


001362 


005046 




362 


001364 


004737 


OOOOOOG 


363 


001370 


012603 




364 


001372 


012602 




365 








366 








367 








368 


001374 


000137 


001502' 



dnesday 


18- Jan 


ASR 


RO 


CALL 


CLPTWD 



-89 15:23 Page 0-6 



/Convert indices to numbers 
/Return to user buffer 



Return current # end of file form feeds 

word S 

MOV CL*EPN(R5),R0 i Get EOF FF's 

CALL CLPTWD /Return to user buffer 



Return current end of file 
words 9-12 



1*: 



2*: 



9* 



MOV 

MOV 

MOV 

MOV 

MOVB 

BEQ 

CALL 

SOB 

CLR 

CALL 

MOV 

MOV 

Finished 

JMP 



R2/-(SP) 

R3/-<SP> 

#CLEOFS/ R3 

CL*EPS<R5)/R2 

(R2)+, -<SP) 

2$ 

PTBYT 

R3, 1* 

-(SP) 

PTBYT 

(SP)+/R3 

(SP)+, R2 



CLQXIT 



string 

/Save registers 

/Get riuiTiber of chars to move 
/Get pointer to EOF string 
/Get next character 
/ Stop at end of string 
iElse move to user buffer 
J Move up to maximum length 
/Always return ASCIZ string 
/Move last char to user buffer 
/Restore registers 



TSCLO — 
CLGSTS - 
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28 
29 
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- Return CL device status 

. SBTTL CLGSTS — Return CL device status 



CLGSTS is called by CL . SPFUNs 204 and 266 to return the CL version 

number and modem status bits in RO. 

Inputs: 

Rl index number of line being used as CL unit 

R5 contains the CL unit index number 
Outputs: 

RO contains the version and status bits 

(see . SPFUN 204 for complete bit description) 



001400 010346 



001402 113703 OOOOOOG 
001406 042703 177400 
001412 000303 



CLGSTS: MOV R3, -(SP) i Save R3 
Get version number to high-order byte 



MOVE 


CLVERS, R3 


BIC 


#••^377, R3 


SWAB 


R3 



001414 032761 
001422 001402 
001424 052703 



001430 032761 
001436 001402 
001440 052703 



OOOOOOG OOOOOOG 
OOOOOOG 



; Get version number 

iKill possible sign extension 

i Move version to high byte 



See if ue have sent an XOFF to stop transmission to us 

BIT #*HISTP.LSW10(R1); Have we send XOFF? 

BEQ 1* ; Br if not 

BIS #XL*XFX,R3 i Set status flag 

C\ 



See if toe have received an XOFF 



OOOOOOG OOOOOOG 1*: 
OOOOOOG 



BIT 
BEQ 
BIS 



#*CTRLS. LSW3<R1 ); Have we received an XOFF? 
2* /Br if not 

#XL*XFR»R3 iSet status flag 



oo- 



See if Clear To Send <CTS> is asserted 



001444 004737 OOOOOOG 

001450 032700 OOOOOOG 

001454 001402 

001456 052703 OOOOOOC 



001462 032700 OOOOOOG 

001466 001402 

001470 052703 OOOOOOG 



001474 010300 
001476 012603 
001500 000207 



2*: 



CALL 
BIT 
BEQ 
BIS 



GETDSS 
#MS«CAR, RO 
3* 



Call routine to get dataset status 
Is carrier detected? 
Br if not 



#<XL*CTS!XL*CD>, R3 ; Say CTS is asserted and ring detected 



.V 



See if Ring is asserted 



> 



3*: 



BIT 
BEQ 
BIS 



#MS*RNG. RO 
4* 
#XL*RI, R3 

N-0 



,v^ 



Return status value in RO 



4*: 



MOV 
MOV 
RETURN 



R3>R0 
<SP)+, R3 



i Is ring detected? 

; Br if not 

> Say ring is detected 



i Get value to RO for CLPTWD 
{Restore R3 



i 
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We completed the I/O operation. 

Return the queue element to the system. 

Inputs: 
R4 = Address of current queue element. 

001502 CLQXIT: DISABL i ; : «■*■ Disable interrupts ** 

001510 013764 000004' OOOOOOC MOV CQHi Q. LINK-Q. BLKN<R4) i i ; Put queue element on completed list 

001516 010437 000004' MOV R4, CQH ii> 

001522 ENABL ; *« Enable interrupts 

001530 004737 006010' CALL RTNQ ; Return queue element to the system 



001534 000137 000016' 



Go back and see if there is another queue element pending 

JMP CLQOK ; Go back and check for another request 



i 



I 
i 



i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

15 001540 
16 
17 

le 

19 001540 

20 001546 
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into user's buffer 



SBTTL CLPTWD 



Store 1 word into user's buffer 



21 
22 
23 

24 001550 

25 001554 

26 001556 

27 001564 

28 001566 
29 

30 
31 
32 

33 001570 

34 001572 

35 001576 
36 

37 
38 
39 001600 



032764 
001410 



016400 
001403 
052760 
000261 
000404 



000001 OOOOOOC 



OOOOOOC 
OOOOOOG OOOOOOG 



CLPTWD is called from some of the . SPFUN processing routines to store 
a one word value into the 1st word of the user's data buffer. 
If the buffer address is odd» the error flag is set in the channel 
status word, the C-flag is set on return* and the value is not stored. 

Inputs: 
RO = Value to store. 
R4 = Pointer to current queue element. 

Outputs: 
C-flag set ==> Error: buffer address odd 

CLPTWD: 

See if the buffer address is odd 

BIT #1,Q. BUFF-Q. BLKN<R4) ils the buffer address odd? 
BEQ 1* i Br if not 

Error: The buffer address is odd 

liOV Q. CSW-Q. BLKN(R4)> RO i Get address of CSW for channel 

BEQ 2* ; Br if no channel address 

BIS #CS*ERR,C. CSW<RO)iSet error flag in CSW 
SEC ; Signal error on return 

BR 9* 



Jf : 



Buffer address is OK. 

Call PTWRD to store the value. 



010046 
004737 
000241 



000207 



1*: 



OOOOOOG 



MOV 

CALL 

CLC 



RO, -<SP) 
PTWRD 



i Stack the value for PTWRD 

J Store value into user's buffer 

} Signal success on return 



Finished 
9*: RETURN 



€ 
I 

f 

€ 
I 

i 
i 
i 
{ 
I 
I 



TSCLO — 
GETWRD - 



c: 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
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- Get 1 word from user's buffer 

. SBTTL GETWRD — Get 1 word from user's buffer 



001602 



001602 032764 000001 OOOOOOC 
001610 001411 



001612 016400 OOOOOOC 

001616 001403 

001620 052760 OOOOOOG OOOOOOG 

001626 005000 2*: 

001630 000261 

001632 000411 



GETWRD is called from some of the . SPFUN processing routines to get 
a one u>ord value from the Ist word of the user's data buffer. 
If the buffer address is odd, the error flag is set in the channel 
status u»ord» the C-flag is set on return, and (zero) is returned 
in RO. 

Inputs: 
R4 = Pointer to current queue element 

Outputs: 
RO = Value from 1st u»ord of data buffer 

C-flag set ==> Buffer address was odd (RO contains in this case). 
Buffer address is incremented by 2 in queue element. 

GETWRD: 

See if the buffer address is odd 



BIT # 1 , Q. BUFF-Q. BLKN ( R4 ) 
BEQ 1« 

Error: The buffer address is odd 



MOV 
BEQ 
BIS 
CLR 
SEC 
BR 



Q. CSW-Q. BLKN<R4), RO 

2* 

#CS*ERR, C. CSW<RO) 

RO 

9* 



i Is the buffer address odd? 
; Br if not odd 



i Get address of channel status word 

j Br if there is none 

i Set error flag in channel status 

; Return in RO 

j Signal error on return 



Buffer address is ok. 

Map PAR6 to user's buffer. 

001634 016437 OOOOOOC OOOOOOG 1*: MOV Q. PAR-Q. BLKN<R4), e#KPAR6 i Map KPAR6 to user's buffer 

Get word from the buffer 



001642 017400 OOOOOOC 

001646 062764 000002 OOOOOOC 

001654 000241 



001656 000207 



MOV 
ADD 
CLC 

Finished 

9*: RETURN 



@Q. BUFF-Q. BLKN<R4), RO 
#2, Q. BUFF-Q. BLKN(R4) 



; Get value from buffer 
; Advance buffer address 
iSianal success on return 






I 
c 

I 
( 
i 
c 
i 
< 
f 
t 
I 
f 



TSCLO — Communication 
CLCLOS — Initiate end- 



1 

2 
3 
4 
5 
6 
7 

a 

9 001660 
10 

11 

12 

13 001660 

14 001666 
15 

16 
17 

18 001670 

19 001676 
20 

21 

22 

23 001704 

24 

25 

26 

27 001710 

28 

29 

30 

31 001716 

32 

33 

34 

35 001722 
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-of-file processing 



. SBTTL CLCLOS — Initiate end-of-file processing 



032765 
001415 



052765 
042765 



OOOOOOG OOOOOOG 



0000000 OOOOOOG 
OOOOOOG OOOOOOG 



105065 00000 IG 



016565 OOOOOOG OOOOOOG 



004737 003130' 



000207 



CLCLOS is called when end of file is reached on output processing 
and we want to initiate the end-of-file output processing. 

Inputs: 
R5 = CL unit index 

CLCLOS: 

Only do output EOF processing if a write was done to this unit 

BIT #CM*wRT, CL*STA<R5) j Was a write done to this unit? 
BEQ 9* ;Br if not 

Say we are doing end-of-file processing 

BIS #CM*EFP, CL*STA<R5)i We have started EOF processing for unit 
BIC #CM*WRT, CL*STA<R5); Clear write-done flag for unit 

Reset form-feed count 

CLRB CL*EPN+1 <R5) ; Say no form-feeds sent yet 
Reset ENDSTRING pointer 

MOV CL*EPS(R5), CL*EPP<R5)i Reset endstring pointer 
Initiate output to the unit 

CALL ORINGP i Initiate output to unit 

Finished 
9*: RETURN 



TSCLD — 
CLCLER - 

1 

d 

3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
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- Clear CL XOFF status 

. SBTTL CLCLER — Clear CL XOFF status 



001724 



001724 042761 0000000 OOOOOOG 



001732 042761 OOOOOOG OOOOOOG 
001740 016100 OOOOOOG 
001744 004770 OOOOOOG 



001750 004737 005514' 



001754 042765 OOOOOOG OOOOOOG 
001762 000207 



This routine clears the flag saying that the line has received an 
XOFF and transmits an XON 



Inputs: 
Rl 
R5 



Index of the TS line to which the CL unit is connected 
CL unit index 



CLCLER: 

Clear flag saying we have received an XOFF 

BIC #*CTRLS>LSW3(Rl)i Clear the ctrl-S flag 

Send an XON 

BIC #*HISTP.LSW10<Rl)i Say input has not been stopped by XOFF 

MOV LCDTYP<R1>, RO i Get device type code 

CALL @CDSXON<R0) iCall routine to stuff XON into output 

Start output 

CALL CLSTRT 

Clear end of file flag 



i Start transmission 



BIC #CM*EOF, CL*STA<R5)> Clear end of file status 
RETURN 



i 

i 



4 

i 



€ 
f 

i 

t 
I 

i 
i 
I 
( 
i 
I 
i 
I 






f 
i 
i 
i 
i 
i 
< 
I 
t 
€ 
i 
i 
I 
i 
i 

( 
i 



TSCLO — 
CLREST - 

1 

2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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. SBTTL CLREST 



Reset a CL unit 



001764 010146 



001766 016501 0000000 



Reset a CL unit. This consists of the following actions: 

1. Empty input silo. 

2. Empty output silo. 

3. Reset line and column positions. 

4. Stop sending break if me are currently sending it. 

5. Clear flag that says we have received an XOFF. 

6. Send an XON if we previously sent an XOFF. 

Inputs: 
R5 = CL unit number index 

CLREST: MOV R1,-<SP) 

Get line # CL unit is connected to 

MOV CL*LIX<R5),R1 ; Oet line index number 

Clear out the input silo buffer 



001772 
002000 
002004 
002010 
002014 



002022 
002026 
002032 
002036 
002044 



016100 
010061 
010061 
016161 



016500 
010065 
010065 
016565 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



DISABL 

MOV LHIRBB<R1)»R0 

MOV RO, LHIRBP<R1) 

MOV RO, LHIRBG(Rl) 



OOOOOOG 



** Disable interrupts #« 
Get pointer to start of silo buffer 
Reset input interrupt pointer 
Reset next available char pointer 



MOV LHIRBA<R1), LHIRBS(Rl)i i » Reset free space counter 
Clear out the output silo buffer 



MOV 
MOV 
MOV 



CL«0RB<R5),R0 
RO, CL*0RP<R5> 
RO, CL«0RG<R5) 



OOOOOOG 



i Get pointer to start of output silo buffer 

; Output character pointer 

;Next available output character 

MOV CL*ORA<R5),CL*ORS(R5)i i {Available space in output buffer 

ENABL i ** Enable interrupts »* 



002052 042761 OOOOOOG OOOOOOG 



002060 042765 OOOOOOC OOOOOOG 



002066 
002074 
002076 
002100 
002104 



002112 
002116 



032765 
001406 
005000 
004737 
042765 



005065 
005065 



OOOOOOG OOOOOOG 



006346 ' 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 



Clear flag that says we have received an XOFF 

BIC #«CTRLS, LSW3<Rl)iSay line output not suspended due to XOFF 
Clear some status flags for the unit 

BIC #<:CM«WRT ! CM«EFP ! CM*CRL ! CM«TBS ! CM*EOF ! CM*FFS>, CL*STA < R5 ) 

If we are sending a break* stop now 

BIT #CM«BRK* CL*STA<R5)i Are we sending a break now? 

BEQ 1* iBr if not 

CLR RO ; Say to reset break transmission 

CALL SETBRK ; Stop sending break 

BIC #CM*BRK, CL*STA<R5)i Say break transmission finished 



I 

i 



i Reset page and line position 

1*: CLR CL*LIN<R5) 
CLR CL*C0L(R5> 



; Say we are at the top of a page 

/Say we are at left-most column of line 



I 
I 



If we previously sent an XOFF to stop the sender* send an XON now. 



TSCLO - 
CLREST 



Communication Line 
- Reset a CL unit 
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58 
59 
60 
61 
62 
63 
64 
65 
66 

67 002150 012601 

68 002152 000207 



0000000 OOOOOOG 



002130 
002132 
002140 
002144 



001407 
042761 
016100 
004770 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



BIT 
BEQ 
BIC 
MOV 
CALL 

Finished 



9*: 



MOV 
RETURN 



#*HISTP,L3WiO<Ri)iDid wb send an XOFF? 
9* ; Br if not 

#*HISTP/ LSW10<Rl)iCan XOFF has been cleared 
LCDTYP(R1 ), RO ; Get line type index 
eCDSXON<R0) iSend XON 



(SP)+, Rl 



i 
i 



I 
I 
{ 
t 
€ 

i 
I 
I 
I 



i 
i 
i 
i 
t 
i 
I 
f 
t 
C 
< 

( 
4 
( 
t 
I 
( 



TSCLO - 
CLINCP 



Communication Line (CL MACRO 
- Input character processing 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 



002154 010146 
002156 010546 



002160 016405 OOOOOOG 



002164 
002170 
002172 
002176 



016501 
001403 
004777 
000402 



OOOOOOG 



OOOOOOG 



002200 004737 002212' 



002204 012605 
002206 012601 
002210 000207 
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SDTTL CLINCP — Input character processing 



CLINCP is called at fork level after each received character has been 
stored in the input silo buffer. Its primary function is to move 
characters from the input silo buffer to the user's data buffer. 

Inputs: 
R4 = Line index number of line that received a character. 



CLINCP: MOV 
MOV 



Rl, -(SP) 
R5, -<SP) 



Convert line index number to CL unit index 

MOV LCLUNT(R4), R5 ; Carry CL unit number in R5 

If this CL unit is cross connected to a time-sharing line* try to 
start output to the time-sharing line <it will fetch characters 
directly from the input silo for the CL unit). 



MOV CL*XLN<R5),R1 

BEQ 1* 

CALL STRNSTR 

BR 9* 



j Is this CL unit cross-connected to TT line? 

j Br if not 

i Try to start output to TT line 



See if uie need to move any characters from the input silo buffer 
to the user's data buffer 



1*: CALL 
Finished 



IRINGG 



; Move chars to user's data buffer 



9*: 



MOV (SP)+, R5 
MOV (SP)+, Rl 
RETURN 



c 
I 

f 

I 
( 

i 



I 
f 

I 
I 
€ 
€ 
I 
I 
C 
i 



i 

i 



TSCLO — 
IRINGG - 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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- Move chars from silo buffer to data buffer 



. SBTTL IRINGG 



Move chars from silo buffer to data buffer 



IRINGG is called to move all characters from the terminal input 
silo buffer to the current read data buffer. 

Inputs: 
R5 = CL unit index number 



002212 



IRINGG: 



002212 

002220 032765 OOOOOOG OOOOOOG 

002226 001404 

002230 

002236 000207 



002240 052765 OOOOOOG OOOOOOG 2*: 
002246 



002254 010146 

002256 010246 

002260 010346 

002262 010446 



002264 016501 OOOOOOG 



See if this routine is already being used by this unit. 

If SO/ don't reenter it <thB other process will transfer all characters). 

DISABL i i i ** Disable interrupts ^» 

BIT #CM»IRO, CL»STA(R5> i ; i Is this routine already active for unit? 

BEQ 2* i ; ; Br if not 

ENABL ; *# Enable interrupts ** 

RETURN 

This routine is not active* claim it for us 

BIS #CM*IRG, CL*STA<R5) i i > Say the routine is now active 
ENABL ; ** Enable interrupts ** 

Push some registers 



MOV 
MOV 
MOV 
MOV 



Rl, -(SP.> 
R2, -<SP) 
R3, -<SP) 
R4, -<SP> 



Get index number of line associated with this CL unit 

MOV CL*LIX<R5)» Rl i Get line index number 

See if there are any characters in the input buffer and if there 
is a pending read request for this unit. 



002270 

002276 016504 OOOOOOG 

002302 001475 

002304 032765 OOOOOOG OOOOOOG 

002312 001004 

002314 026161 OOOOOOG OOOOOOG 

002322 001465 



3*: 



) i 
i i 



*# Disable interrupts *«• 

Is there a pending read request? 

Br if not 

i i Need to report end of file? 

Br if yes 
LHIRBS<Rl>#LHIRBA<Rl)i i ; Any chars in the silo buffer? 
9* i > ; Br if not 



DISABL 

MOV CL*RQH<R5),R4 

BEQ 9* 

BIT #CM*EOF, CL*STA<R5) 

BNE 7* i i 

CMP 

BEQ 



002324 



002332 032765 OOOOOOG OOOOOOG 

002340 001413 

002342 016403 OOOOOOC 

002346 052763 OOOOOOG OOOOOOG 



There are characters in the silo buffer and there is a pending 
read request. 

7*: ENABL » *# Enable interrupts #* 

i See if flag is set which indicates that we should signal end-of-file 

BIT #CM*E0F>CL*STA<R5)i Should we signal end of file? 

BEQ 4* ; Br if not 

MOV Q. CSW-Q. BLKN<R4),R3j Get pointer to CSW for channel 

BIS #CS*EOF>C. CSW<R3)i Set end of file flag 



4 



f 
I 
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I 
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I 
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TSCLO — Communication Line <CL MACRO V05. 05 Wednesday 
IRIIMGG — Move chars from silo buffer to data buffer 



lS-Jan-89 15:23 Page 17-1 



58 


002354 


042765 


OOOOOOG 


OOOOOOG 


59 


002362 


004737 


002742 ' 




60 


002366 


000740 






61 










62 










63 










64 


002370 


004777 


OOOOOOG 




65 


002374 


103440 






66 


002376 


010002 






67 










68 










69 










70 


002400 


020227 


000032 




71 


002404 


101017 






72 


002406 


105702 






73 


002410 


001004 






74 


002412 


032765 


OOOOOOG 


OOOOOOG 


75 


002420 


001723 






76 


002422 


126427 


OOOOOOC 


OOOOOOG 


77 


002430 


001405 






78 


002432 


010200 






79 


002434 


006300 






80 


002436 


004770 


002524 ' 




81 


002442 


000712 






82 










83 










84 










85 










86 


002444 


004737 


002706 ' 




87 










88 










89 










90 










91 


002450 


126427 


OOOOOOC 


OOOOOOG 


92 


002456 


001304 






93 


002460 


026161 


OOOOOOG 


OOOOOOG 


94 


002466 


001300 






95 


002470 


004737 


002742 ' 




96 


002474 


000675 






97 










98 










99 










100 










101 


002476 


042765 


OOOOOOG 


OOOOOOG 


102 


002504 








103 










104 










105 










106 


002512 


012604 






107 


002514 


012603 






108 


002516 


012602 






109 


002520 


012601 






110 


002522 


000207 







#CM*EDF. CL*STA(R5); Acknowledge the EOF 

RDFIN i Terminate this read operation 

3* /See if there is another read to do 



BIC 
BR 
Get a character from the silo buffer 



4*: 



i Get a character from input silo 
i Br if no chars in silo 
/Get character to R2 



If this is a control character* do special processing 



CALL 


eSILFET 


BCS 


9* 


MOV 


R0/R2 



6*; 



8*: 



CMr 

BHI 

TSTB 

BNE 

BIT 

BEQ 

CMPB 

BEQ 

MOV 

ASL 

CALL 

BR 



R2/ #32 
5* 
R2 
8* 



> Is this a control character?" 

i Br if not 

i Is this a null character? 

; Br if not null 



#CO*BNI/ CL*0PT<R5)i Is binary input wanted? 

3* i Br if not — ignore nulls 

Q. FUNC-Q. BLKN<R4),#CLSFRB i Is this a special read (. SPFUN 203) 

5* i If yes then accept control chars as normal 

R2/ RO /Get the control character 

RO /Convert to word table index 

.@CCIRTN<RO) /Call control character processing routine 

3* /Go see if there are more characters 



This is not a control character 
Store into user's data buffer. 



5*: 



CALL 



INPCHR 



/Store character into data buffer 



If the input silo buffer is now empty/ and this is a special function 
read <. SPFUN 203)/ then say the read is finished. 

CMPB Q. FUNC-Q. BLKN<R4)/ #CLSFRB iis this a special read (.SPFUN 203) 

BNE 3* i Br if not — continue reading more 

CMP LHIRBS<R1)/LHIRBA(R1)/ Is the silo buffer empty? 

BNE 3* i Br if not — Get more chars for the SPFUN 

CALL RDFIN /Terminate the read operation 

BR 3* /See if there is another read request 

There are no more input characters that can be moved from silo buffer. 
Say this routine is no longer active for this unit. 

9*: BIC #CM*IRG/ CL*STA(R5) i i i Say we are leaving this routine 

/ ** Enable interrupts «■*■ 



BIC 


#CM*IRG/ 


ENABL 




Finished 




MOV 


(SP)+, R4 


MOV 


(SP)+/ R3 


MOV 


(SP)+, R2 


MOV 


<SP)+/R1 


RETURN 
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1 

2 






3 






4 






5 






6 






7 






8 






9 






10 






11 






12 


002524 


002620 ' 


13 


002526 


002612' 


14 


002530 


002612' 


15 


002532 


002612' 


16 


002534 


002612' 


17 


002536 


002612' 


18 


002540 


002612' 


19 


002542 


002612' 


20 


002544 


002612' 


21 


002546 


002612' 


22 


002550 


002632 ' 


23 


002552 


002612' 


24 


002554 


002612' 


25 


002556 


002644 


26 


002560 


002612' 


27 


002562 


002612' 


28 


002564 


002612' 


29 


002566 


002612' 


30 


002570 


002612' 


31 


002572 


002612' 


32 


002574 


002612' 


33 


002576 


002612' 


34 


002600 


002612' 


35 


002602 


002612' 


36 


002604 


002612' 


37 


002606 


002612' 


38 


002610 


002672 ' 



. SBTTL CCIRTN — Input control character processing routines 

These routines are called to process control characters received 
from a line. 

Inputs: 
R2 = Control character 
R5 = Unit index number 

Vector of control character processing routines 



IRTN: . WORD 


CCINUL 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCILF 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCICR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCISTR 


. WORD 


CCICTZ 



00 


null 




01 


SHO 




02 


STX 




03 


ETX 




04 


EOT 




05 


ENQ 




06 


ACK 




07 


BEL 




10 


BACKSPACE 


11 


TAB 




12 


LINE 


FEED 


13 


VT 




14 


FF 




15 


CARRIAGE RETURN 


16 


SO 




17 


SI 




20 


DLE 




21 


XON 




22 


DC2 




23 


XOFF 




24 


DC4 




25 


NAK 




26 


SYN 




27 


ETB 




30 


CAN 




31 


EM 




32 


SUB < 


ctrl-Z) 



4 
I 

< 
C 

( 

« 

i 
i 
f 
< 
1 
< 
4 
f 
€ 
I 



t 

i 



TSCLO - 
CCIRTN • 



3 
4 
5 
6 
7 
8 
9 
10 

n 

12 
13 
14 
15 
16 
17 

le 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
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— Input control character processing routines 



002706 ' 



OOOOOOG OOOOOOG 



Routine to process a line feed 

OOOOOOG OOOOOOG CCILF: BIT #CO*LFI, CL*0PT(R5) ; Should we ignore input line feeds? 

BNE CCISTR ;Br if not 

RETURN i Discard the LF 



002612 004737 
002616 000207 



002620 032765 
002626 001371 
002630 000207 



002632 032765 
002640 001364 
002642 000207 



002644 016500 

002650 126027 

002656 001355 

002660 004737 

002664 004737 

002670 000207 



002672 



002672 052765 OOOOOOG OOOOOOG 



Routine to store the control character 

CCISTR: CALL INPCHR ; Store the character 

RETURN 

Routine to process a null character 

CCINUL: BIT #CO*BNI> CL*DPT<R5) ; Are we in binary input mode? 
BNE CCISTR iBr if yes — go store the null 

RETURN i Discard the null 



OOOOOOG 
OOOOOOC OOOOOOG 

002706 ' 
002742 ' 



Routine to process carriage returns 

CCICR: MOV CL*RQH<R5) . RO ; Get address of current Q element 

CMPB Q. FUNC-Q. BLKN<RO),#CLSFRL i Read-line special function? 

BNE CCISTR iBr if not — Treat CR as normal char 

CALL INPCHR i Store the carriage return 

CALL RDFIN j Terminate the read operation 

RETURN 

Routine to process control-2 characters 

CCICTZ: 

i Set flag which will cause us to return EOF status on next read 
» 

BIS #CM*EOF» CL*STA(R5)i Remember EOF has been hit 

i 

i Terminate this read operation 



002700 
002704 



004737 
000207 



002742 ' 



CALL RDFIN 
RETURN 



Terminate the read operation 



^ 



4 
I 
f 
I 

i 



i 



I 

I 



I 

i 
I 
I 
t 
i 
f 
I 



TSCLO — 
INPCHR - 

1 
•t 

n, 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 
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24 
25 
26 
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37 
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— Move character to user's data buffer 



002706 010446 



002710 016504 0000000 

002714 001410 



002716 010246 

002720 004737 OOOOOOG 



002724 005364 OOOOOOC 
002730 001002 



002732 004737 002742 



002736 012604 
002740 000207 



. SBTTL INPCHR — Move character to user's data buffer 

INPCHR is called to store a data character into the user's buffer 
associated with the current read request. 

If this causes the read request to be completed^ the current read 
queue element is returned to the system. 

Inputs: 
R2 = Character to be stored 
R5 = CL unit index number 

INPCHR: MOV R4, -<SP) 

Get address of current read queue element 



1*: 



MOV CL*RQH(R5)>R4 
BEQ 9« 



iSet pointer to current read queue element 
; Br if no read request is pending 



Store character into data buffer 



MOV 
CALL 



R2, ~(SP) 
PTBYT 



; Stack the data char for PTBYT 
i Move char to user's data buffer 



Decrement remaining byte count and see if this completes the read request 

DEC Q. WCNT-Q. BLKN<R4)i Does this complete the read request? 
BNE 9* i Br if not 

The read request is completed. 

Return the queue element to the system. 



CALL 
Finished 



RDFIN 



; Read request is completed 



9*: MOV (SP)+, R4 
RETURN 



I 
I 
I 






i 
i 

« 

c 
t 

i 
C 
I 

« 
( 
( 
4 
t 
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RDFIN — Completed a read request 

. SBTTL RDFIN — Completed a read request 



1 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



We have completed a read request. 

Null fill the remainder of the user's buffer if that is needed and then 

call the system I/O completion routine. 

Inputs: 
R5 = CL unit index number. 



002742 010346 
002744 010446 



002746 016504 OOOOOOG 
002752 001427 



002754 016403 OOOOOOC 

002760 001404 

002762 005046 

002764 004737 OOOOOOG 

002770 077304 



RDFIN: 



MOV 
MOV 



R3, -<SP) 
R4, -(SP> 



002772 

003000 016465 OOOOOOC OOOOOOG 

003006 013764 000004' OOOOOOC 

003014 010437 000004' 

003020 



003026 004737 006010' 



2*: 



Get address of current retsd queue element 

MOV CL*RQH(R5). R4 ; Get address of read queue element 
BEQ 9* i Br if none pending 

See if uje need to store nulls into the remainder of the buffer 

MOV Q. WCNT-Q. BLKN<R4)» R3 i Get remaining byte count 

BEQ 2* » Br if buffer is full 

CLR -(SP) 

CALL PTBYT ;Null fill the remainder of the buffer 

SOB R3, 1* 

Remove the queue element from our internal queue and place on the queue 
of elements waiting to be returned to the system. 

DISABL i i i ** Disable interrupts «# 

MOV Q. LINK-Q. BLKN(R4)> CL*RQH<R5) ; i i Remove Q element from list 

MOV CQH, Q. LINK-Q. BLKN<R4) i i ; Put Q element on completion list 

MOV R4, CQH 

ENABL iii ** Enable interrupts ** 

Now call system I/O completion routine to free the queue element 

CALL RTNQ > Return queue element to the system 

Finished 



003032 012604 
003034 012603 
003036 000207 



9*: 



MOV 
MOV 
RETURN 



<SP)+, R4 
<SP)+, R3 



t 
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-- Routine called from clock interrupt routine 



003040 010146 
003042 010446 
003044 010546 



003046 012705 OOOOOOC 



003052 016501 0000000 
003056 001412 



003060 004737 006250 ' 



003064 005765 OOOOOOG 

003070 001403 

003072 004737 004574 ' 

003076 000402 

003100 004737 003130' 



003104 

003112 162705 000002 

003116 002355 



003120 012605 

003122 012604 

003124 012601 

003126 000207 



. SBTTL CLTIMR — Routine called from clock interrupt routine 

CLTIMR is called on a clock interrupt (50/60 Hz) basis to move characters 
to/from the user's I/O data buffer and the output/input CL character 
ring buffers. We do this type of processing on a clock interrupt 
basis to avoid having to do a .FORK on each input/output character 
interrupt. 



CLTIMR: MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R4, -(SP) 
R5, -(SP) 



Begin loop to service each CL unit 

MOV #2*<CLT0TL-i>, R5» Get index # of last CL unit 
See if this CL unit is connected to a line 



1*: 



MOV 
BEQ 



CL*LIX<R5)/R1 
2$ 



; Is this CL unit connected to a line? 
i Br if not 



See if user wants to change status of Data Terminal Ready 

CALL SETDTR iCall routine to set or clear the DTR flag 

Call ORINGP for each line to try to move characters from the user's buffer 
to the output ring buffer. 

i Is this CL unit cross connected to TT line? 

< Br if not 

j Copy characters to CL output ring buffer 



3*: 



TST 


CL*XLN(R5) 


BEQ 


3* 


CALL 


CLOCPY 


BR 


2* 


CALL 


ORINGP 



Process the next CL unit 



ENABL 




SUB 


#2, R5 


BGE 


1* 


Finished 




MOV 


(SP)+, R5 


MOV 


(SP)+, R4 


MOV 


<SP>+, Rl 


RETURN 





Move chars to output ring buffer 



jMake sure interrupts are enabled 

> Get index of next line 

i Loop if more lines to service 



€ 
I 
I 

( 

€ 
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€ 

i 
i 

f 



TSCLO ■ 
OR I NOP 
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-- Move chars from data buffer to output ring buffer 
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. SBTTL ORINGP — Move chars from data buffer to output ring buffer 

ORINGP is called to move characters from the current output data buffer 
to the output ring buffer. 

Inputs: 
R5 = CL unit index number 



003130 010246 
003132 010346 



ORINGP: MOV 
MOV 



R2, -(SP) 
R3, -(SP) 



003134 

003142 032765 OOOOOOG OOOOOOG 

003150 001402 

003152 000137 003570' 



See if this routine is already being used bu this unit. 

If so» don't reenter it <the other process uiill transfer #11 characters 

that can be transferred). 

DISABL i ; i ## Disable interrupts ** 

BIT #CM*ORP, CL*STA<R5)i i i Is this routine already active for unit? 

BEQ 21$ ; i ; Br if not 

JMP 9* iiiBr if routine already active 

This routine is not active for this unit. Claim it. 



003156 052765 OOOOOOG OOOOOOG 21*: 

003164 

003172 005002 11*: 



BIS #CM*ORP, CL*STA(R5); ; ; Say routine is now active 

ENABL i ** Enable interrupts ** 

CLR R2 i Count # chars moved to output ring buffer 



See if there is any free space in the output ring buffer and see if 
there is a pending uirite request for this unit. 



003174 

003202 005765 OOOOOOG 

003206 001555 

003210 005765 OOOOOOG 

003214 001004 

003216 032765 OOOOOOG OOOOOOG 

003224 001546 



4*; DISABL 

TST CL*0RS(R5) 

BEQ 8* 

TST CL*WQH<R5) 

BNE 20* 

BIT 

BEQ 



** Disable interrupts *# 

» i Any available space in ring buffer? 

i i Br if no space available 

i ; Is there a pending write request? 

; i Br if a write is pending 

#CM*EFP» CL*STA<R5)i i ; Are we doing end-of-file processing? 

8* j i i Br if not 



There is free space in the output ring buffer and there is a pending 

write request. 

We will move characters from the user's buffer to the output ring buffer. 



003226 



20*: 



ENABL 



i ** Enable interrupts ** 



See if we are sending spaces to simulate tabs 



003234 032765 OOOOOOG OOOOOOG 15*: BIT 

003242 001412 BEQ 

003244 032765 000007 OOOOOOG BIT 

003252 001403 BEQ 

003254 012700 000040 MOV 

003260 000474 BR 

003262 042765 OOOOOOG OOOOOOG 2*: BIC 



#CM*TBS> CL*STA<R5)i Are we doing tab simulation? 

16* i Br if not 

#7, CL*C0L<R5) ; Have we reached the next tab stop? 

2* i Br if yes 

#SPACE/ RO ; Get space for simulation 

12* 

#CM*TBS* CL*STA<R5); Say we are finished with tab simulation 



See if we are sending line feeds to simulate a form feed 



I 
< 

i 

i 

i 

i 
f 



003270 032765 OOOOOOG OOOOOOG 16*: BIT 
003276 001414 BEQ 



#CM*FFS> CL*STA(R5); Are we doing form feed simulation? 
1* ; Br if not 
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91 

92 

93 

94 
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- Move chars from data buffer to output ring buffer 



003300 026565 OOOOOOG OOOOOOG 

003306 103003 

003310 012700 000012 

003314 000467 

003316 042765 OOOOOOG OOOOOOG 17*: 

003324 005065 OOOOOOG 



CMP CL*LIN<R5), CL*LEN<R5> i Have me reached top of neuj page yet? 

BHIS 17* iBr if yes 

MOV #LFi RO j Send a line feed 

BR 7* i Go process the line feed 

BIC #CM*FFS. CL*BTA(R5)j Say ute have finished form feed simulation 

CLR CL*LIN<R5) j Say we are at top of neui page 



Try to get next character from user's data buffer 



003330 004737 003604 f 
003334 103717 



003336 032765 OOOOOOG OOOOOOG 

003344 001406 

003346 042765 OOOOOOG OOOOOOG 

003354 020027 000014 

003360 001725 



1«: 



CALL 
BCS 



GETCHR 
4* 



; Get next char from user's data buffer 
iBr if no chars left 



Ignore user's FF immediately following FF from skip 

BIT #CM*FFI> CL*STA<R5> ;Did uie just do skip and should ignore FF? 

BEQ 13* i Br if not 

BIC #CM*FFI. CL*STA(R5> iOnly ignore the Ist one 

CMP RO, #FF i Is the 1st char after skip an FF? 

BEQ 15* i If yes/ ignore this char 



See if this is a control character 



003362 032765 OOOOOOG OOOOOOG 13*: 

003370 001046 

003372 032765 OOOOOOG OOOOOOG 

003400 001002 

003402 042700 177600 

003406 020027 000037 18*: 

003412 101430 

003414 042765 OOOOOOG OOOOOOG 



BIT #CO*BNOi CL*0PT<R5)i Are uie in binary output mode? 

BNE 5* iBr if yes — Accept all chars 

BIT #C0*8BT» CL*0PT<R5)i Is 8 bit support wanted? 

BNE IS* ; Br if yes 

BIC #'^C<177>.. RO iMask character to 7 bits 

CMP R0» #37 i Is this a control character? 

BLOS 7* iBr if yes 

BIC #CM*CRL. CL*STA<R5) i Remember this is not a carriage return 



003422 032765 OOOOOOG OOOOOOG 

003430 001010 

003432 020027 000141 

003436 103405 

003440 120027 000172 

003444 101002 

003446 162700 000040 



003452 005265 OOOOOOG 

003456 016503 OOOOOOG 

003462 001411 

003464 026503 OOOOOOG 

003470 101406 

003472 000660 



This is not a control character. 

See if uie should translate lower-case to upper-case 

BIT #CO*LC* CL*0PT(R5)i May u»e send lower-case characters? 

BNE 12* iBr if yes 

CMP RO* #141 i Is this a lower-case letter? 

BLO 12* i Br if not 

CMPB RO, #172 

BHI 12* 

SUB #40» RO i Convert lower-case to upper case 

See if we need to truncate line due to WIDTH parameter 



12*: 



INC 


CL*C0L<R5) 


MOV 


CL*WID(R5)>R3 


BEQ 


5* 


CMP 


CL*C0L<R5>,R3 


BLOS 


5* 


BR 


15* 



i Advance column counter 

iWas a WIDTH parameter specified? 

iBr if not 

i Have we reached the specified width? 

i Br if not 

iDiscard this char if line is too wide 



This is a control character. 

Call control character processing routine. 



003474 010003 
003476 006303 
003500 004773 004052 ' 



7*: 



MOV 


RO, R3 


ASL 


R3 


CALL 


eCC0RTN<R3) 



i Get control character 

i Convert to word table index 

iCall processing routine 
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— Move chars from data buffer to output ring buffer 



003504 103653 



003506 016503 OOOOOOG 
003512 110023 



003514 005365 OOOOOOG 
003520 005202 



003522 020365 OOOOOOG 

003526 103402 

003530 016503 OOOOOOG 

003534 010365 OOOOOOG 

003540 000615 



BCS 15* j Br if u>e should discard this character 

Move character to output ring buffer 



5$: 



MOV CL*0RP(R5),R3 
MOVB RO, (R3)+ 



;Get position for char in ring buffer 
; Store char into ring buffer 



Say 1 less free char space in ring buffer 



DEC CL*0RS(R5) 
INC R2 



i One less free char pos in out ring buffer 
/Count # chars moved to ring buffer 



Save updated ring buffer pointer 



6$: 



CMP R3, CL*0RE<R5) 

BLO 6* 

MOV CL*0RB(R5), R3 

MOV R3, CL*0RP<R5) 

BR 4* 



J Did uje advance past end of ring buffer? 

; Br if not 

; Wrap around to front of ring buffer 

i Save new ring buffer pointer 

i Go see if u»e should send more chars 



003542 005702 

003544 001406 

003546 

003554 004737 005514' 

003560 000604 



8*: 



003562 042765 OOOOOOG OOOOOOG 10*: BIC 

Finished 



Finished moving characters to output ring buffer. 

If me moved any characters, call the routine to try to start output 

to the line. 

jiDid we move any characters to ring buffer? 

; ; Br if not 

** Enable interrupts ** 

Try to start transmission to this line 

Go back and check for more to send 

Release this routine for this unit 

#CM*ORP» CL*STA<R5)i i J Say routine is noui free 



TST 


R2 


BEQ 


10* 


ENABL 




CALL 


CLSTRT 


BR 


11* 



003570 

003576 012603 

003600 012602 

003602 000207 



9*: 



ENABL 
MOV 
MOV 
RETURN 



i ** Enable interrupts ** 



(SP)+, R3 
(SP)+, R2 
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- Get next output char from user's data buffer 



SBTTL GETCHR 



Get next output char from user's data buffer 



e: 
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003604 010446 



GETCHR is called to obtain the next character from the user's 
data buffer. 



Inputs: 
R5 = CL unit index number 

Outputs: 
C-flag cleared ==> A character was gotten 
C-flag set ==> No more characters are available 
RO = Character gotten if C-flag is cleared 

GETCHR: MOV R4;-<SP) 

See if ue should do end-of-file output processing. 



003606 032765 OOOOOOG OOOOOOG 5«: 
003614 001403 



BIT #CM*EFP, CL*STA(R5) ; Should uie do end-of-file processing? 
BEQ 2* ; Br if not 

We are doing end-of-file output processing. 

See if there is another end-of-file character to send. 



003616 004737 003760' 
003622 103054 



003624 016504 OOOOOOG 
003630 001446 



CALL 
BCC 



EOFCHR 
12* 



i See if another eof char to send 
i Br if uje got an EOF character 



See if there is a pending lurite operation 



?*: 



MOV CL*WQH(R5)»R4 
BEQ 10* 



;Get pointer to current write queue element 
; Br if no pending uirite operation 



003632 005764 OOOOOOC 

003636 001011 

003640 032765 OOOOOOG OOOOOOG 

003646 001405 

003650 005264 OOOOOOC 

003654 112700 000014 

003660 000434 



003662 005764 OOOOOOC 
003666 001406 



003670 005364 OOOOOOC 

003674 004737 OOOOOOG 

003700 012600 

003702 000423 



If the FORMO option is in effect and this is the first uirite to 
block 0, send a form feed. 

TST Q. BLKN-Q. BLKN<R4); Is block number = 0? 

BNE 4* iBr if not 

BIT #CD*FFO. CL*0PT<R5) ils the FORMO option in effect? 

BEQ 4* j Br if not 

INC Q. BLKN-Q. BLKN<R4)i Inc block # so we only do this once 

MOVE #FFi RO ;Get form feed character 

BR 9* ; Return the form feed 

See if current queue element has another character to be sent 

4*: TST Q. WCNT-Q. BLKN<R4); Any remaining bytes to send? 

BEQ 3* iBr if not — uirite request is finished 

Get next character from user's buffer 

DEC Q. WCNT-Q. BLKN<R4); Decrease remaining byte count 

CALL GTBYT i Get next byte from user's buffer 

MOV <SP)+/RO i Get the returned character 

BR 9* i Return the character 

This uirite operation is completed. 

Remove the queue element from our internal queue and place it 

on the queue of elements waiting to be returned to the system. 



4 
t 
C 

I 

« 
( 

f 

i 



I 
I 

I 



< 



4 
f 
i 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 
S3 
84 
85 



003704 
003712 
003720 
003726 
003732 



016465 OOOOOOC OOOOOOG 
013764 000004' OOOOOOC 
010437 000004' 



003740 004737 006010' 



003744 000727 



003746 
003750 



000261 
000401 



003752 000241 



003754 
003756 



012604 
000207 



3$: DI3ABL >;**•«• Disable interrupts ** 

MOV Q. LINK-Q. BLKN<R4)>CL*WQH<R5) i >; Remove element from internal Q 

MOV CQHi Q. LINK-Q. BLKN<R4) ; i ; Add to list of completed requests 

MOV R4, CQH 
ENABL ; ** Enable interrupts ** 

; Return the completed queue element to the system (do . DRFIN) 

i 

CALL RTNQ iTell system we finished the operation 

i 

> Go back and see if there is another lurite request pending 
f 

BR 2* i Go check for another write request 

i There are no available characters 



10$: 



SEC 
BR 



Signal that no chars are available 



12$ 
i 

i We got a character 

i 

9*: CLC 

i 

} Finished 

12*: MOV (SP)+, R4 
RETURN 



i Signal that uie got a character 



I 
I 

i 

i 

i 
i 



C 
f 
< 
i 
€ 
I 
i 
€ 



, < 



i 
% 



TSCLO — Communication 
EOFCHR — Get next end 



1 

IZ. 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 003760 
15 

16 
17 

15 003760 

19 003766 

20 003770 

21 003774 

22 004000 
23 

24 
25 

26 004002 

27 004006 

28 004010 

29 004012 

30 004014 

31 004020 
32 

33 
34 

35 004022 

36 004026 

37 004034 

38 004042 

39 004044 
40 

41 

42 

43 004046 

44 

45 

46 

47 004050 
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-of-file output character 

. SBTTL EOFCHR — Get next end-of-file output character 

; This routine is called during end-of-file output processing to see 
i if there is another end-of~file output character to send. 

i Inputs: 

i R5 = CL unit index number 

i 

; Outputs: 

; C-flag cleared ===> Got a character 

; C-flag set ==> No more characters 

; RO = Character gotten if C~flag cleared. 

i 

EOFCHR: 

i 

i See if u)e need to send form-feeds 



126565 
103005 
105265 
012700 
000422 



016500 
001405 
111000 
001403 
005265 
000412 



105065 
016565 
042765 
000261 
000401 



000241 



000207 



00000 IG OOOOOOG 

00000 IG 
000014 



CMPB CL*EPN+1 <R5.)> CL*EPN<R5); Do we need to send more form-feeds? 

BHIS 1* i Br if not 

INCB CL«EPN+1<R5) i Count another form-feed being sent 

MOV #FF. RO /Get form-feed character 

BR 7* i Go send it 

See if uje need to send characters from ENDSIRING 



OOOOOOG 



OOOOOOG 



1*: 



MOV 


CL*EPP(R5>.R0 


BEQ 


2* 


MOVB 


<RO)>RO 


BEQ 


2* 


INC 


CL*EPP(R5) 


BR 


7* 



i Are we sendi ng en d-string characters? 

J Br if not 

j Get next char to send 

j Br if reached end of string 

; Advance character pointer 

; Go send the character 



00000 IG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



We have finished all end-of-file output processing 

2*: CLRB CL*EPN+1<R5) J Reset form-feed count 

MOV CL*EPS(R5),CL*EPP<R5)i Reset end-string pointer 

BIC #CM*EFP. CL*STA<R5)i Finished end-of-file output processing 

SEC ; Signal that no character was gotten 

BR 9* 



; We got a character 

7*: CLC 

> 

i Finished 

i 

9*: RETURN 



Signal that we got a character 



I 
I 



I 

i 

< 

I 

I 

f 

f 

i 

€ 

t 

i 

t 

€ 

4 



I 

I 
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1 

2 






3 






4 






5 






6 






7 






8 






9 






10 


004052 


004200 ' 


11 


004054 


004152' 


12 


004056 


004152' 


13 


0O4060 


004152' 


14 


004062 


004152' 


15 


004064 


004152' 


16 


004066 


004152' 


17 


004070 


004152' 


18 


004072 


004204 ' 


19 


004074 


004226 ' 


20 


004076 


004320 ' 


21 


004100 


004152' 


22 


004102 


004454 ' 


23 


004104 


004530 ' 


24 


004106 


004152' 


25 


004110 


004152' 


26 


004112 


004152' 


27 


004114 


004152' 


28 


004116 


004152' 


29 


004120 


004152' 


30 


004122 


004152' 


31 


004124 


004152' 


32 


004126 


004152' 


33 


004130 


004152' 


34 


004132 


004152' 


35 


004134 


004152' 


36 


004136 


004152' 


37 


004140 


004152' 


38 


004142 


004152' 


39 


004144 


004152' 


40 


004146 


004152' 


41 


004150 


004152' 



. SBTTL CCORTN — Output control character processing routines 



Processing routines 
When one of these ro 
If the character is 
If the character is 



for output control characters. 

utines is called, RO contains the control character. 

to be sent* the C-flag is cleared on return. 

to be discarded* the C-flag is set on return. 



Vector of control character processing routines 



00 null 

01 SHO 

02 STX 

03 ETX 

04 EOT 

05 ENQ 

06 ACK 

07 BEL 

10 BACKSPACE 

11 TAB 

12 LINE FEED 

13 VT 

14 FF 

15 CARRIAGE RETURN 

16 SO 

17 SI 
20 DLE 



: . WORD 


CCONUL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOBS 


. WORD 


CCOTAB 


. WORD 


CCOLF 


. WORD 


CCOCTL 


. WORD 


CCOFF 


. WORD 


CCOCR 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 


. WORD 


CCOCTL 



21 DCl 


<ctrl-Q) 


22 DC2 




23 DC3 


(ctrl-S) 


24 DC 4 




25 NAK 




26 SYN 




27 ETB 




30 CAN 




31 EM 




32 SUB 


(ctrl-Z> 


33 ESC 




34 FS 




35 GS 




36 RS 




37 US 





f 

f 
I 



I 

i 
€ 
I 

i 

i 

i 



i 
I 
< 
I 
( 
I 
c 
I 
t 
< 
t 
I 
i 

i 
i 
i 
{ 



TSCLO - 
CCORTN 
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1 
c: 
3 
4 
5 

7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004152 
004160 
004166 
004170 
004172 



042765 
032765 
001002 
000261 
000207 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



t rrocess c 

i 

CCOCTL. BIC 
BIT 
BNE 
SEC 



general conxroi cnarsccer 

#Cli*CRLi CL*STA<R5) i Say last char out was not carriage return 
#CO*CTL» CL*0PT<R5) ; Are \ae to transmit control chars? 
CCOSND i Br if yes 

; Say to ignore this character 



004174 000241 



RETURN 

Routine to cause the current control character to be transmitted unchanged 

CCOSND: CLC i Say to send the character 

RETURN 



004200 
004202 



004204 
004212 
004216 
004220 
004224 



004226 
004234 
004242 
004244 
004252 
004260 
004264 
004266 
004274 
004276 
004300 
004306 
004312 
004316 



004320 
004324 
004330 
004332 
004336 
004340 

004352 
004356 
004362 
004364 



000261 
000207 



042765 
005365 
002366 
005065 
000763 



042765 
032765 
001416 
062765 
042765 
005765 
001743 
026565 
103737 
000740 
052765 
005265 
012700 
000726 



005265 
016500 
001431 
026500 
103405 
005065 
042765 
166500 
026500 
001014 
032765 



Process null character 

CCONUL: SEC 

RETURN 

Proccess Backspace character 



Say to ignore this character 



OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 



CCOBS: BIC 
DEC 
BGE 
CLR 
BR 



#CM*CRL. CL*STA<R5) ; Say last char out was not carriage return 
CL*C0L(R5) i Say we are moving back 1 char 
CCOSND » Br if did not go past column 

CL*C0L<R5) j Constrain to column O 
CCOSND j Go send the character 



Process tab character 



OOOOOOG 
OOOOOOG 

000010 
000007 
OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 
000040 



OOOOOOG 1*: 



CCOTAB: BIC 
BIT 
BEQ 
ADD 
BIC 
TST 
BEQ 
CMP 
BLO 
BR 
BIS 
INC 
MOV 
BR 



#CM*CRL* CL*STA<R5) i Say last char out was not carriage return 

#CO*TABi CL*0PT<R5) i Does device have hardware tab support 

1* i Br if not 

#8. / CL*C0L<R5) ; Bound up to next tab stop 

#7, CL*C0L(R5) 

CL*WID(R5) ; Was a maximum width specified? 

CCOSND J Br if not — go send the tab 

CL*C0L(R5)i CL*WID(R5) j Have we gone beyond max width? 

CCOSND J Br if not 

CCONUL j Discard this tab 

#CM*TBS* CL*STA(R5) ; Say we are doing tab simulation 



CL«C0L<R5) 
#SPACE3 RO 
CCOSND 



; Advance column counter 
; Send a space character 



Process Line feed character 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

W V/ Arf V/ Vrf W %^ 

OOOOOOG 
OOOOOOG 



CCOLF: 



OOOOOOG 



2*: 



OOOOOOG OOOOOOG 



INC 
MOV 
BEQ 
CMP 
BLO 
CLR 
BIC 
SUB 
CMP 
BNE 
BIT 



CL«LIN<R5) 

CL*LEN(R5)>R0 

5* 

CL*LIN<R5),R0 

2* 

CL*LIN<R5) 



i Increment line-on-page counter 

iWas a page length value specified? 

; Br if not 

» Have we reached the top of a new page? 

i Br if not 

; Say we are at top of a new page 
#CM$FFS, CL*STA<R5)> Stop doing form feed simulation 
CL*SKP<R5) » RO i See if we are to skip lines at bottom of page 
CL*LIN(R5)* RO i Have we reached the skip point? 
5* i Br if not 

#CMfFFS» CL*STA<R5)i Are we already doing form feed simulation? 



I 



f 

i 

f 
< 
I 

< 

t 

f 

I 

i 

c 

I 
c 
I 



f 

f 
I 
< 
( 

« 

t 
f 
I 
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f 

i 
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58 004372 

59 004374 

60 004400 

61 004406 

62 004412 

63 004414 

64 004422 

65 004424 

66 004432 

67 004434 

68 004442 

69 004444 

70 004450 

71 004452 
72 

73 
74 

75 004454 

76 004462 

77 004470 

78 004472 

79 004476 
SO 004500 

81 004504 

82 004506 

83 004514 

84 004520 

85 004522 

86 004526 
87 

88 
89 

90 004530 

91 004536 

92 004542 

93 004550 

94 004552 

95 004554 



001010 
1 1 2700 
052765 
005365 
000420 
032765 
001010 
032765 
001404 
042765 
000656 
1 1 2700 
000241 
000207 



042765 
032765 
001403 
005065 
000636 
005765 
001406 
052765 
012700 
000677 
005065 
000624 



052765 
005065 
032765 
001211 
000261 
000207 



0000 i 4 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

000012 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
000012 

OOOOOOG 



BNE 5* i Br if yes 

MOvB #FFj RO i At skip point — Do a form feed 

BIS #CM*FFI. CL*STA<R5) J Ignore FF if 1st char after skip 

DEC CL*LIN<R5) i Set line counter back — haven't sent LF yet 

BR CCDFF * Go process the form feed 

5*: BIT #CD*LFO» CL*0PT<R5) i Should uje discard line feeds on output? 

BNE 6* j Br if not 

BIT #CM*CRL> CL*STA<R5); Was last char out a carriage return? 

BEQ 6* i Br if not 

BIC #CM*CRL, CL*STA(R5); Clear flag that says carriage return last 

BR CCONUL J Discard the line feed 

6*: MOVB #LFi RO ; Get back line feed character 

CLC i Say to send it 

9*: RETURN 

i Process Form feed character 

i 

CCOFF: BIC #CM*CRL> CL*STA<R5> ; Say last char out was not carriage return 

BIT #CO*FF, CL$DPT<R5) ; Does this device support form feed chars? 

BEQ 1* » Br if not 

CLR CL*LIN(R5) i Say we ars at top of the page 

BR CCOSND ■> Go send the form feed 

TST CL*LEN<R5) i Do we have a non-zero page length? 

BEQ 2* i If not then discard the FF 

BIS #CM*FFS, CL*STA(R5)i Say we are starting form-feed simulation 

MOV #LF, RO ; Translate form feed to line feed 

BR CCOLF i Go send line feed 

CLR CL*LIN<R5) i Say we are at top of page 

BR CCONUL i Discard the character 



1*: 



>*: 



OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



i Process carriage return character 
CCOCR: 



BIS 
CLR 
BIT 
BNE 
SEC 
RETURN 



#CM$CRL« CL$STA(R5) i Say last char out was carriage 
CL*C0L<R5> i Say we are back to column 
#CO*CR* CL*0PT<R5)» Should we transmit carriage returns? 
CCOSND iBr if yes 

; Ignore this char 



return 



c 

i 
I 

I 

I 



€ 



i 
< 
t 
C 

c 
I 
< 
I 



I' 



< 

i 

f 
t 
I 
I 
f 
I 
I 
< 
( 
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1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

23 
24 



004556 010546 



004560 016105 OOOOOOG 



004564 004737 004574' 



004570 012605 
004572 000207 



SBTTL CLXICP — Sot char for output to cross connected CL line 



CLXICP is called at fork level when a character is received from a 
TT line that is cross connected to a CL line. 

It copies all possible characters from the input silo of the TT line 
to the output silo for the CL line and initiates output to the CL line. 

Inputs: 
Rl = Index number of TT line that received the character 



CLXICP: MOV 



R5, -(SP) 



MOV LXCL(R1)>R5 i Get # of CL line we are connected to 

i 

i Call routine to copy all chars from TT input silo to CL output silo 

i 

CALL CLOCPY iCopy chars to CL output silo 

r 

; Finished 

MOV (SP)+, R5 
RETURN 



< 
I 
< 
i 

< 

t 

i 
I 

€ 
€ 

i 

I 

€ 

i 
I 
{ 
I 



r 
I 
I 

I 
( 
( 
I 
I 
C 
I 
« 
( 
I 
r 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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. SBTTL GLOCPY — Copy characters from TT input buf to CL output buf 

CLOCPY is called to copy characters from the input silo of a TT line to 
the output buffer of a cross-connected CL line. 

Inputs: 
R5 = Unit index of CL line 



004574 010146 
004576 010246 
004600 010346 



CLOCPY: MOV 
MOV 
MOV 



R1,-<SP) 
R2, -<SP) 
R3, -(SP) 



See if this routine is already being used by this unit. 

If so, don't reenter it <the other process will transfer all 

characters that can be transferred). 



004602 

004610 032765 0000000 OOOOOOG 

004616 001113 



004620 052765 OOOOOOG OOOOOOG 

004626 

004634 005002 



004636 016501 OOOOOOG 
004642 001476 



004644 

004652 005765 OOOOOOG 

004656 001460 

004660 026161 OOOOOOG OOOOOOG 

004666 001454 

004670 



004676 004777 OOOOOOG 
004702 103446 



DISABL i i 

BIT #CM*0RP,CL*STA(R5) 
BNE 9* i i 



Disable interrupts* 

; ; Is this routine already active? 

Br if yes 



This routine is not active for this unit. Claim it. 



BIS 

ENABL 
CLR 



#CM*0RP. CL*STA<R5>; ; ; Say routine is now active 

j Enable interrupts 



11*: CLR R2 ; Count # chars copied to output buffer 

See if cross-connection is still in effect 



4*: 



MDV CL*XLN<R5),R1 
BEQ 10* 



J Get number of cross-connected TT line 
; Br if no longer cross connected 



See if there is any free space in the output ring buffer. 



DISABL 

TST 

BEQ 

CMP 

BEQ 

ENABL 



ifjDisable interrupts 
CL*0RS(R5) i i J Any available space in ring buffer? 
8* jiiBr if no space available 

LHIRBS<R1)>LHIRBA<R1); i i Any chars in TT input silo? 
8* i j i Br if not 

; Enable interrupts 



Get next character from TT input silo 
eSILFET 



CALL 
BCS 



S* 



; Get next char from TT input silo 
i Br if no more chars available 



004704 032765 OOOOOOG OOOOOOG 

004712 001407 

004714 042765 OOOOOOG OOOOOOG 

004722 004737 005064 ' 

004726 103743 

004730 000415 

004732 120037 OOOOOOG 

004736 001003 

004740 004737 005412' 



We got a character. 

See if character has special significance. 

BIT #CM*MCC, CL*STA<R5)i Modem control or literal char? 

BEQ 1* i Br if not 

BIC #CM*MCC, CL*STA<R5)J Reset literal-character flag 

CALL CLXMCC ) Process the character 

BCS 4* 5 Br if finished with char 

BR 2* ; Go transmit the character 

1*: CMPB RO, VCXTRM iControl-\ — Terminate connection? 

BNE 3* ; Br if not 

CALL CLXBRK /Break cross connection and drop DTR 



c 

i 
t 

i 

i 

{ 



c 
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I 
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58 

CO 

60 
61 
62 
63 
64 
65 
66 
67 
68 

69 

Tn 

/ XJ 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 
97 

98 
99 
100 
101 
102 
103 
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004744 000425 

004752 001004 

004754 052765 0000000 OOOOOOG 

004762 000725 



004764 016503 OOOOOOG 
004770 110023 



3$: 



BR 8* i Finished 

CMPB R0> VCXCTL j Control-A means nest char is modem control 

BNE 2* i Br if not ctrl~A 

BIS #CM*MCC, CL*STA<R5); Remember next char is modem control 

BR 4* J Oo get next char 

Store this character into the output ring buffer 



004772 005202 
004774 005365 



OOOOOOG 



?*: MOV CL$0RP<R5),R3 

MOVB RO, (R3) + 

Count chars in ring buffer 

INC R2 

DEC CL*0RS(R5) 



; Get position for char in ring buffer 
; Store char into ring buffer 



; One more char stored into ring buffer 
; One less free space in ring buffer 



Save updated ring buffer pointer 



005000 020365 OOOOOOG 

005004 103402 

005006 016503 OOOOOOG 

005012 010365 OOOOOOG 

005016 000707 



6*: 



CMP R3, CL*0RE(R5) 

BLO 6* 

MOV CL*0RB<R5), R3 

MOV R3i CL*0RP<R5) 

BR 4« 



;Did me advance past end of ring buffer? 

J Br if not 

; Wrap around to front of ring buffer 

j Save neuj ring buffer pointer 

; Go see if we have more chars to move 



005020 005702 

005022 001406 

005024 

005032 004737 005514' 

005036 000676 



005040 042765 OOOOOOG OOOOOOG 10*: BIC 

Finished 



We have copied all the characters uie can from the TT input silo 
buffer to the CL output ring buffer. 

If we copied any characters., call the routine to try to start 
output for the CL line. 

8*: TST R2 i j ; Did we copy any characters? 

; ; Br if not 
Enable interrupts 
Start transmission to CL line 
Go back and try to copy more 

Release this routine for this unit 

#CM*0RP/ CL*STA<R5>i Say routine is now free 



TST 


R2 


BEQ 


10* 


ENABL 




CALL 


CLSTRT 


BR 


11* 



005046 

005054 012603 

005056 012602 

005060 012601 

005062 000207 



9*: 



ENABL 

MOV 

MOV 

MOV 

RETURN 



i Enable interrupts 



(SP)+, R3 
<SP)+, R2 
<SP)+, Rl 



I 
I 
I 

i 
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I 
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i 
I 
( 
t 

( 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 



005064 



14 005066 
15 

16 
17 

15 005070 

19 005074 

20 005076 

21 005102 

22 005104 
23 

24 
25 

26 005110 

27 005114 

28 005116 

29 005124 

30 005130 

31 005134 

32 005140 

33 005144 

34 005152 

35 005160 

36 005166 

37 005172 

38 005200 

39 005206 

40 005212 

41 005220 
42 

43 
44 

45 005222 

46 005226 

47 005230 

48 005236 

49 005242 
50 

51 
52 

53 005244 

54 005250 

55 005252 

56 005260 

57 005264 



010046 
010146 



120027 
103405 
120027 
101002 
162700 



120027 
001042 
052765 
012700 
004737 
004737 
004737 
012761 
012761 
013761 
010561 

013761 
010137 

000452 



120027 
001006 
052765 
004737 
000441 



120027 
001006 
042765 
004737 
000430 



. SBTTL CLXMCC — Process cross connect modem control character 

Process a modem control character for a cross connection. 

Inputs: 
RO = Character 
R5 = CL unit index number 

Outputs: 
C-flag cleared ==> Go ahead and transmit this character. 
C~flag set ==> Do not transmit this character. 



CLXHCC; MOV 
MOV 



RO, -<3P) 
R 1 , - < SP ) 



j Save the character 



Translate lomer-case to upper-case 



000141 
000172 
000040 

000102 

OOOOOOG 

OOOOOOG 

006346 ' 

005514' 

OOOOOOG 

000036 

005362 ' 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



1$: 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



000104 

OOOOOOG 
006250 ' 



2*: 



OOOOOOG 



0001 10 

OOOOOOG 
006250 ' 



4*: 



CMPB 


RO, #141 


BLO 


1* 


CMPB 


RO, #172 


BHI 


1* 


SUB 


#40, RO 



Is this a lower-case letter? 
Br if not 

Br if not 

Convert to upper-case 



"B" — Start sending a break 



CMPB RO, #'B i Is character B? 

BNE 2* ,• Br if not 

BIS #CM*BRK, CL*STA(R5>; Set flag saying u»e are sending break 

MOV #MS*BRK, RO i Set flag to start break transmission 

CALL SETBRK iCall hardware routine to start sending break 

CALL CLSTRT J Start transmitter 

CALL GETRTQ i Get a real-time queue element <ptr in Rl) 

MOV #30. , CQ*LDT<R1> i Set approx 0.5 second time interval 

MOV #CLXSSB, CQ*RTN<Rl)i Set address of compl routine 

MOV @#KPAR5, CQ*PA5<R1 )j Save system par 5 mapping 

MOV R5, CQ*R0<R1) ; Set CL unit index 

DISABL iii* Disable interrupts * 

MOV MRKTHD, CQ*LNK<R1)) i ; Put new element on linked list 

MOV R 1 , MRKTHD ; ; i 

ENABL ," * Enable interrupts * 

BR 20* 

■D" — Raise DTR 

CMPB RO, #'D i Is character D? 

BNE 4* iBr if not 

BIS #C0*DTR,CL*0PT<R5); Request DTR up 

CALL SETDTR iCall routine to raise DTR 

BR 20* 



■H" — Drop DTR 



OOOOOOG 



CMPB 

BNE 

BIC 

CALL 

BR 



RO,#'H ; Is character H? 

5* ; Br if not 

#CO*DTR, CL*0PT<R5); Request DTR drop 

SETDTR iCall routine to drop DTR 

20* 



I 

i 
I 

I 
I 
< 
( 
I 
( 

i 
< 
f 

4 

« 
I 
< 
( 
I 
( 
( 
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59 








60 








61 


005266 


120027 


000122 


62 


005272 


001017 




63 


005274 


016501 


ooooooe 


64 


005300 


042761 


OOOOOOG OOOOOOG 


65 


005306 


042761 


OOOOOOG OOOOOOG 


66 


005314 


016100 


OOOOOOG 


67 


005320 


004770 


OOOOOOG 


68 


005324 


004737 


005514' 


69 


005330 


000406 




70 








71 








72 








73 


005332 


120027 


000130 


74 


005336 


001005 




75 


005340 


004737 


005432 ' 


76 


005344 


000400 




77 








78 








79 








SO 








81 


005346 


000261 




82 


005350 


000401 




S3 








84 








85 








86 








87 


005352 


000241 




88 








89 








90 








91 


005354 


012601 




92 


005356 


012600 




93 


005360 


000207 





no II __ o_ 



5*: 



6«: 



i^eset XON/XOFF status 

CMPB RO, #'R i Reset XON/XOFF status? 

BNE 6* iBr if not 

MOV CL*LIX(R5), Rl i Get index of line we are connected to 

BIC #*CTRLS,LSW3<Rl)i Reset XOFF received flag 

BIC #«HISTP,LSW10<Rl)i Say input has not been stopped by XOFF 

MOV LCDTYP<R1>,R0 J Get device type code 

CALL @CDSXON(RO) iCall routine to stuff XON into output 

CALL CLSTRT > Try to start output to CL unit 

BR 20$ 

— Break cross connection without dropping DTR 

; Break cross-connection? 
> Br if not 

i Break cross connection 
^Finished with character 



CMPB 


RO, #'X 


BNE 


21* 


CALL 


CLXDRP 


BR 


20* 



This is a modem control character. 
Don't send it. 



20*: 



SEC 
BR 



/Signal not to send the character 



This is not a modem control character. 
Send the character literally. 



21*: CLC 




i Finished 




22*: MOV 


<SP)+,R1 


MOV 


(SP)+, RO 


RETURN 





; Signal that we should send the character 



I 
< 
I 
{ 
< 
I 



I 



f 
I 
( 
I 
i 
f 

C 
( 

< 

( 
( 
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1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 
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System t.ampletion routine c<slled to stop sending break to a 
cross-connected CL line. 



f 
I 



Inputs: 
RO = CL unit index 



005362 010546 
005364 010005 



005366 005000 

005370 004737 006346 ' 

005374 042765 OOOOOOG OOOOOOG 

005402 004737 005514' 



005406 012605 
005410 000207 



CLXSSB: 


MOV 


R5, -<SP> 




MOV 


RO, R5 


; Stop 


sending 


break 




CLR 


RO 




CALL 


SETBRK 




BIC 


#CM$BRK, 




CALL 


CLSTRT 


i Finished 




i 


MOV 


(SP)+,R5 




RETURN 





i Get CL unit index 



i Clear break-send flag 
iCall harduiare routine to end break 
#CM$BRK/ CL*STA<R5); Clear break-sending flag 

; Start transmitter 



c 

i 
i 



TSCLO — 
CLXBRK - 

1 
n 

3 

4 

5 

6 

7 

8 

9 

10 

H 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 
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005412 



005412 042765 0000000 OOOOOOG 
005420 004737 006250 ' 



005424 004737 005432' 



005430 000207 



. SBTTL CLXBRK — Break a CL-TT cross connection and drop DTR 

This routine is called when we receive control-\ to break the cross 

connection between a CL unit and a TT line. 

In addition to breaking the connection* DTR is dropped to hang up. 

Inputs: 
R5 = CL unit index 

CLXBRK: 

i 

i First, drop DTR 

i 

BIC #CO*DTR, CL*0PT<R5) ; Request DTR drop 
CALL 3ETDTR ;Cail routine to drop DTR 

i 

; Horn break the cross connection 

i 

CALL CLXDRP ; Break the cross connection 

; Finished 

i 

RETURN 



I 
I 
f 

f 
I 

i 

i 
€ 
I 

I 

i 

f 

4 

i 

( 

4 

€ 

4 

« 

4 

f 
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CLXDRP 
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— Break a CL-Tl cross connection 

. SBTTL CLXDRP — Break a CL-TT cross connection 



3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



005432 010146 



005434 004737 001764' 



005440 

005446 016501 OOOOOOG 

005452 012761 177777 OOOOOOQ 

005460 012761 OOOOOOG OOOOOOG 



005466 005065 OOOOOOG 
005472 



005500 116101 OOOOOOG 
005504 004737 OOOOOOG 



005510 012601 
005512 000207 



This routine is called when we receive control-\ to break the cross 

connection between a CL unit and a TT line. 

DTR is not dropped by this routine. Call CLXBRK to drop DTR too. 

Inputs: 
R5 = CL unit index 

CLXDRP: MOV R1,-(SP) 

Reset this CL unit 

CALL CLREST 



iReset the CL unit 



Reconnect time-sharing line to normal input character processing routine 



DISABL 

MOV CL*XLN(R5),R1 

MOV #-l,LXCL<Rl) 



i ; ■»« Disable interrupts «••«• 

i j Get number of cross-connected TT line 

i » Say not connected to a CL unit 



MOV #TTINCP.LINIR<R1); ; J Connect to TT input processing routine 
Say CL unit no longer connected to time-sharing line 
CL*XLN<R5) 



CLR 
ENABL 



i ; ; CL unit no longer connected to TT line 
; «* Enable interrupts «•* 



Restart the execution of the job 



MOVE 


LNMAP(Rl), Rl 


CALL 


FORCEX 


Finished 




MOV 


<SP)+,R1 


RETURN 





* Get virtual job index number 
j Cause job to continue execution 



i 

i 



€ 

I 



I 

I 
I 
I 
< 
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I 
f 
I 
( 

4 

I 
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I 
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t 
I 
( 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 



005514 010146 



005516 016501 OOOOOOG 



005522 016100 0000000 

005526 004770 0000000 

005532 005237 0000000 

005536 005237 OOOOOOG 



005542 012601 
005544 000207 
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. SBTTL CLSTRT — Start transmissions to a line 

CLSTRT is called to initiate transmission to a line. 

Inputs: 
R5 = CL unit index number. 

CLSTRT: MOV R1.-<SP) 

Convert CL unit number into line index number 

MOV CL*LIX<R5)> Rl > Get line index # for this CL unit 

Call device dependent routine to start the transmitter 



MOV 


LCDTYP<R1),R0 


CALL 


@CDSTRT(RO) 


INC 


NEDCDO 


INC 


NEDCLD 


; Finished 




MOV 


(SP)+, Rl 


RETURN 





; Get communications device type code 
iCall device dependent startup routine 
J Say output character processing needed 
i Say CL output processing needed 



€ 

i 

< 
i 
i 
i 



f 
i 

I 

c 

I 
i 
i 
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3 
4 
5 
6 
7 
8 
9 005546 

10 005550 

11 005552 
12 

13 
14 

15 005554 

16 005560 

17 005564 
IS 005570 

19 005574 

20 005600 

21 005604 
22 

23 

24 

25 005606 

26 

27 

28 

29 005612 

30 005614 

31 005616 

32 005620 
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010346 
010446 
010546 



012705 
012703 

004737 
012703 
004737 
162705 
002365 



OOOOOOC 
OOOOOOG 
005622' 
OOOOOOG 
005622 ' 
000002 



004737 006010' 



012605 
012604 
012603 
000207 



SBTTL CLABRT 



Handler abort routine 



CLABRT is jumped to from the handler abort entry point. 

It terminates any I/O operations for the job being aborted. 



Inputs: 
R4 = Aborted job index number / 2 



CLABRT: MOV 
MOV 
MOV 



R3, -<SP) 
R4, -(SP) 
R5, -(SP) 



Check each CL unit to see if there arm any requests for this job 



MOV #2#<CLT0TL-1>*R5 

1*: MOV #CL*RQH, R3 

CALL CKABTQ 

MOV #CL*WQH, R3 

CALL CKABTQ 

SUB #2, R5 

BGE 1* 



Get index to last CL unit 

Get address of read queue head 

See if there are any entries on this queue 

Get address of uirite queue head 

See if there are any entries on this queue 

Get index number of next CL unit 

Br if more units to check 



Call routine to return any freed queue elements to the system 

CALL RTNQ i Return freed queue elements to the system 



Finished 



MOV 
MOV 
MOV 
RETURN 



<SP)+, R5 
<SP)+, R4 
<SP>+, R3 
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i 
< 
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19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
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35 
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005622 010246 
005624 010346 
005626 010546 



005630 060305 

005632 162705 OOOOOOC 



005636 010503 

005640 

005646 010302 

005650 016303 OOOOOOC 

005654 001417 

005656 120463 OOOOOOC 

005662 001372 



005664 016362 OOOOOOC OOOOOOC 
005672 013763 000004' OOOOOOC 
005700 010337 000004' 



005704 

005712 000751 



005714 

005722 012605 

005724 012603 

005726 012602 

005730 000207 



. SBTTL CKABTQ — Check for aborted queue elements 

CKABTQ is called to check to see if any queue elements belonging to 
an aborted job are on a specified internal queue. 

If any queue elements for the aborted job are found, they are placed 
on the completion queue list. 

Inputs: 
R3 = Pointer to base of queue head vector for CL units. 
R4 = # of job being aborted 
R5 = CL unit index number of queue to check. 



CKABTQ: 



MOV 
MOV 
MOV 



R2, -(SP) 
R3, -(SP) 
R5, -(SP) 



Get address of queue head 



ADD 
SUB 



R3, R5 



; Point to queue head for this unit 



?*: 



#Q. LINK-Q. BLKN. R5; Make head look like fake queue entry 

Search for entries in the queue 

1*: MOV R5. R3 ; Point to queue head 

DISABL ; ; ; ** Disable interrupts *« 

MOV R3» R2 ; ; ; Save address of current entry 

MOV Q. LINK-Q. BLKN(R3). R3; i J Get address of next entry 

BEQ 9* ;iiBr if no entries for job being aborted 

CMPB R4, Q. JDB-Q. BLKN(R3)i ; ; Is this the job being aborted? 

BNE 2* i i > Keep looking if not 

We found an entry for the job being aborted 

Remove it from our internal queue and place on the completion queue 

MOV Q. LINK-Q. BLKN(R3). Q. LINK-Q. BLKN(R2)i i ; Remove from list 
MOV CQH, Q. LINK~Q. BLKN(R3); ; i Put on completion list 
MOV R3, CQH 

Go back and see if there are any more entries to remove 



ENABL 
BR 



1* 



Finished with this queue 



9*: 



ENABL 

MOV 

MOV 

MOV 

RETURN 



J #* Enable interrupts ** 
J Go repeat the process 



*■«• Enable interrupts «■«• 



(SP)+, R5 
(SP)+, R3 
(SP)+, R2 



I 
i 
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I 
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- Communication 


Line (CL 


MOVQ 


— Move 


queue el 


ement to 


1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 


005732 


010346 




12 


005734 


010446 




13 








14 








15 








16 








17 


005736 


060503 




18 


005740 


162703 


OOOOOOC 


19 








20 








21 








22 


005744 


010400 




23 


005746 






24 


005754 


010304 




25 


005756 


016303 


OOOOOOC 


26 


005762 


001374 




27 


005764 


010064 


OOOOOOC 


28 


005770 


005060 


OOOOOOC 


29 








30 








31 








32 


005774 






33 


006002 


012604 




34 


006004 


012603 




35 


006006 


000207 





MACRO V05. 05 Wednesday 18-Jan-S9 15:23 Page 37 
internal queue 



SBTTL MOVQ 



Move queue element to internal queue 



MOVQ is called to move the current queue element 
onto an internal queue. 

Inputs: 
R3 = Address of internal queue header 
R4 = Address of current queue element 
R5 = CL unit index number 



MOVQ: 



MOV 
MOV 



R3, -<SP) 
R4.. -<J=!P) 



1* 



Set up R3 to point to queue header but make it look like me are 
pointing to a queue element. 

ADD R5> R3 i Point to correct queue head entry 

SUB #Q. LINK-Q. BLKN, R3i Make it look like pointer to a Q element 

Add queue entry to tail of internal list 

R4, RO 

R3, R4 



MOV 

DISABL 

MOV 

MOV 

BNE 

MOV 

CLR 



; Save address of new queue element 
i i ; •«•* Disable interrupts *■« 
i i i Remember current queue element address 
Q. LINK-Q. BLKN(R3), R3; i i Get address of next queue element 
1* > ; i Loop till end of list found 

RO, Q. LINK-Q. BLKN(R4>i i i Add new entry to end of list 
Q. LINK-Q. BLKN<RO)j i ; Say it is the end of the list 



Finished 



9*: 



ENABL 
MOV 
MOV 
RETURN 



j ** Enable interrupts ** 



<SP)+, R4 
(SP)+, R3 



( 



i 
i 
I 
i 

i 
< 
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I 
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3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
40 
49 
50 
51 
52 
53 
54 
55 
56 
57 



006010 
006012 



006014 
006020 



006022 
006030 
006034 



006036 
006042 
006044 
006050 
006056 
006062 
006070 
006076 
006102 



006104 
006110 
006114 
006116 
006124 
006130 
006134 
006140 
006144 



006150 
006156 



010446 
010546 



005237 
001072 



005737 
002023 



005737 
001061 
005237 

004737 
1 1 2764 
012764 
004737 
000441 



005037 
013704 
001434 
016437 
013746 
013746 
010437 
010437 
005064 



. SBTTL RTNQ — Return completed queue elements to the system 

RTNQ is called to return completed queue elements to the system. 

Inputs: 
CQH = Pointer to 1st queue element on list of completed queue elements. 



RTNQ: 



MOV 
MOV 



R4, -<SP) 
R5, -<SP) 



See if this routine is currently being used by someone else. 

If soi .lust exit. The other user will return all pending queue elements. 



000002 



INC 
BNE 



RTNCNT 
3« 



i Is someone else already in this routine? 
i Br if yes — They will return all entries 



No one else is currently in this routine. 
See if the handler is currently being held. 



OOOOOOG 



DISABL 

TST CLABF 

BGE 6* 



*« Disable interrupts ** 

i i Is handler currently being held? 

; ; Br if not being held 



000006 ' 

000006 ' 

OOOOOOG 

177777G OOOOOOG 
006010' OOOOOOG 
OOOOOOG 



Handier is being held. 

This means an I/O abort is being done for the handler. 

We cannot return queue elements to the system now. 

Queue a fork request at a low priority which will be held until the 

I/O abort operation is completed. 

TST ABTQFL i > > Have we already queued a fork request? 

BNE 3* J 3 i Br if yes 

INC ABTQFL i i i Set flag saying abort fork request queued 

ENABL ; ** Enable interrupts *» 

CALL FRKGET i Get a free fork request block 

MOVE #<FP*I0A-1>, FQ*PRI<R4); Set priority below I/O abort 

MOV #RTNQ, FQ*RTN<R4)i Set address of routine to be called by fork 

CALL FORKQ > Queue the fork request 

BR 3* iExit for now — Fork will recall us 

This handler is not being held. 

Remove completed queue element from completion list and place it as 

the current aueue element for this handler. 



000006 ' 
000004 ' 

OOOOOOC 000004' 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOC 



6*: 

5«: 



CLR 
MOV 
BEQ 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 



ABTQFL 
CQH, R4 
3* 



; Say abort fork request no longer queued 

; Get addr of Ist queue element on compl list 

; Br if no more entries to free 



Q. LINK-Q. BLKN<R4), CQH i i i Remove entry from completion list 



CLCQE, -<SP) ; i 
CLLQE, -(SP) ■> i 
R4, CLCQE ; i 
R4, CLLQE ; ; 
Q. LINK-Q. BLKN(R4)i 



j Save current queue element pointer 

iAlso save last queue element pointer 

; Set entry being freed as current Q element 

; And as last queue element 

i ; Say this element is only one on list 



Now call the system lOFIN routine to release the queue element 



4*: 



012704 OOOOOOG 



ENABL 
MOV 



#CLCQE, R4 



j ** Enable interrupts «•«• 

i Point to CQE cell for lOFIN 



i 
I 
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RTNQ — Return completed queue elements to the system 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 



006162 004737 OOOOOOG 



CALL 



lOFIN 



Free the current queue element 



006166 

006174 012637 OOOOOOG 

006200 012637 OOOOOOG 

006204 000741 



Restore saved queue element pointers then go back and see 
if there are more queue elements that need to be freed. 

; ; ; »* Disable interrupts «■« 

j » i Restore saved queue element pointers 

> i t 

i i i Qo back and see if more elements to free 
There are no more queue entries to be freed 



DISABL 




MOV 


(SP)+, CLLQE 


MOV 


(SP)+, CLCQE 


BR 


5* 



006206 005337 
006212 



006220 012605 
006222 012604 
006224 000207 



000002 ' 



3*: 



DEC 
ENABL 



RTNCNT 



; i Say uie are exiting this routine 
*« Enable interrupts ** 



Finished 



MOV 
MOV 
RETURN 



(SP)+, R5 
(SP)+, R4 
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LINON — Turn on a communications line 



SBTTL LINON 



Turn on a communications line 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 



006226 



006226 052765 OOOOOOG OOOOOOG 



006234 052765 OOOOOOG OOOOOOG 
006242 004737 006250 ' 



006246 000207 



LINON is called to turn on a communications line the first time I/O 
is done to the line. 



Inputs: 
R5 = CL unit index number. 

LINON: 

Set flag saying line is turned on 

BIS #CM*ON. CL*3TA<R5) 

Assert Data Terminal Ready 

BIS #C0*DTR,CL*DPT<R5) 
CALL SETDTR 

Finished 

RETURN 



Say line is turned d! 



; Say ue ujant DTR on 
i Raise the DTR line 



I 
I 
t 

I 

4 

« 
I 
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I 
« 

i 
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I 
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— Set Data Terminal Ready status 

. SBTTL SETDTR — Set Data Terminal Ready status 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 



SETDTR is called to confirm that the Data Terminal Ready status is 
in agreement with the desired state as specified by the CO*DTR 
flag in the unit option flag word <CL*0PT<R5) ) . 



Inputs: 
R5 = CL unit number index 



006250 010146 
006252 010246 



006254 032765 0000000 OOOOOOG 
006262 001412 



006264 032765 OOOOOOG OOOOOOG 

006272 001022 

006274 052765 OOOOOOG OOOOOOG 

006302 012700 OOOOOOG 

006306 000410 



SETDTR: MOV 
MOV 



Rl, -<SP) 
R2, -<SP) 



See if he wants DTR on or off 

BIT #C0*DTR>CL*OPT<R5); Is DTR wanted on or off? 
BEQ 1* i Br if wanted off 

DTR is wanted on. See if it is currently on. 



BIT #CM*DTR,CL*STA<R5) 

BNE 9* 

BIS #CM*DTR, CL*STA<R5) 

MOV #MS*DTR, RO 

BR 2$ 



Is DTR currently asserted?* 
Br if yes — all i«ok 
Say we are raising^ DTJR 
Say we want to set DTR 
Go set DTR 



DTR is wanted off. 



See if it is currently off. 



006310 032765 OOOOOOG OOOOOOG 1*: 

006316 001410 

006320 042765 OOOOOOG OOOOOOG 

006326 005000 



BIT #CM*DTR,CL*STA<R5) 

BEQ 9* 

BIC #CM*DTR,CL*STA<R5) 

CLR RO 



; Is DTR currently off? 
j Br if yes — all is oN 
; Say we are dropping DTR 
; Say we want to drop DTR 



Call hardware-dependent routine to change DTR status 



006330 016501 OOOOOOG 
006334 004737 OOOOOOG 



006340 012602 
006342 012601 
006344 000207 



?*: 



9*: 



MOV 


CL«LIX<R5),R1 


CALL 


SETDSS 


Finished 




MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





; Get line # for this CL unit 
; Change DTR status 
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i 

i 

I 

( 

{ 

i 

I 

t 

t 



1 








2 








3 








4 








5 








6 








7 








8 








9 








10 


006346 


010146 




11 


006350 


010246 




12 








13 








14 








15 


006352 


016501 


OOOOOOG 


16 


006356 


016102 


ooooooe 


17 


006362 






IS 








19 








20 








21 


006370 


012602 




22 


006372 


012601 




23 


006374 


000207 




24 








25 








26 








27 








28 


006376 


000172 


OOOOOOG 


29 




000001 




Errors c 


letected 








. SBTTL SETBRK 



Control break transmission 



SETBRK is called to start or end transmission of a break character 
to a CL line. 

Inputs: 
RO = CM*BRK to start sending break; O to stop break. 
R5 = CL unit index number. 



SETBRK: MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 



Call hardware-dependerit routine to control break transmission 



i Get line # for this CL unit 
i Get line control type code 
iCall harduiare control routine 



MOV 


CL«LIX<R5), Rl 


MOV 


LCDTYP<R1),R2 


OCALL 


BRKJMP 


inished 




MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





Dummy routine used as a jump off point to the CDSBRK routine. 

This is done so that ue can use an OCALL to save our overlay number. 



BRKJMP: JMP 
. END 



eCDSBRK<R2) 



;Call hardware routine to control break 



*** Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 156 Words < 1 Pages) 

Size of core pool: 18176 Words < 71 Pages) 

Operating system: RT-11 

Elapsed time: 00:01:07.04 
, LP: TSCLO=DK: TSCLO/C/N: SYM 



I 

c 





TSCLO - 


- Communication Line 


(CL MACRO 


V05. 05 


Wednesday 


18-Jan-S9 


15: 23 Page 


S-1 












Cross reference 


table (CREF 


V05. 05) 
























^CTRLS 
*HISTP 
*XCHAR 


1-35 
1-39 
1-33 


9-28 
9-22 
8-244 


14-14 
14-18 


15-38 
15-59 


30-64 
15-61 


30-65 


















ABTQFL 
BRKJMP 


4-7# 
41-17 


38-30 
41-28# 


33-32* 


38-44* 






















C. CSW 


1-41 


6-38* 


11-26* 


12-28* 


17-57* 


















CIDEVX 


1-32 


5-43 


























CCICR 


18-25 


19-2i# 


























CCICTZ 


18-38 


19-30# 
























CCILF 


18-22 


19-1 5# 


























CCINUL 


18-12 


19-9# 


























CCIRTN 


17-80 


1S-12# 
























CCISTR 


18-13 


18-14 


18-15 


18-16 


18-17 


18-18 


18-19 


18-20 


18-21 


18-23 


18-24 


18- 


-26 






18-27 


18-28 


18-29 


18-30 


18-31 


18-32 


18-33 


18-34 


18-35 


18-36 


18-37 


19- 


-4# 






19-10 


19-16 


19-23 






















CCOBS 


26-18 


27-22# 


























CCOCR 


26-23 


27-90# 


























CCOCTL 


26-11 


26-12 


26-13 


26-14 


26-15 


26-16 


26-17 


26-21 


26-24 


26-25 


26-26 


26- 


-27 




26-28 


26-29 


26-30 


26-31 


26-32 


26-33 


26-34 


26-35 


26-36 


26-37 


26-38 


26- 


-39 






26-40 


26-41 


27™4# 
























CCOFF 


26-22 


27-62 


27-75# 






















CCOLF 


26-20 


27-47# 


27-84 
























CCONUL 


26-10 


27-17# 


27-39 


27-68 


27-86 




















CCORTN 


23-114 


26-10# 
























CCOSND 


27-6 


27-12# 


27-24 


27-26 


27-36 


27-38 


27-43 


27-79 


27-93 












CCOTAB 


26-19 


27~30# 


























CDGDSS 


1-55 


1-56 
























CDSBRK 


1-57 


41-28 


























CDSDSS 


1-55 




























CDSTRT 


1-38 


34-17 
























CDSXON 


1-35 


14-20 


15-63 


30-67 






















CKABTQ 


8-207 


8-212 


35-17 


35-19 


36-13# 




















CL*COL 


1-47 


15-55* 


23-48 


23-102* 


23-105 


27-23* 


27-25* 


27-33* 


27-34* 


27-37 


27-41* 


27- 


-91* 


CL*EPN 


1-37 


8-263* 


8-348 


13-23* 


25-18 


25-18 


25-20* 


25-35* 














CL*EPP 


1-37 


13-27* 


25-26 


25-30* 


25-36* 




















CL*EPS 


1-37 


8-267 


8-356 


13-27 


25-36 


















CL*LEN 


1-51 


8-147* 


8-323 


23-58 


27-48 


27-80 


















CL*LIN 


1-51 


15-54* 


23-58 


23-63* 


27-47* 


27-50 


27-52* 


27-55 


27-61* 


27-78* 


27-85* 








CL*LIX 


1-58 


5-47 


8-239 


15-18 


17-34 


22-19 


30-63 


34-12 


40-35 


41-15 








CL*OPT 


1-45 


8-99* 


8-115* 


8-120* 


8-129* 


8-138* 


8-313 


17-74 


19-9 


19-15 


23-80 


23- 


-82 






23-92 


24-37 


27-5 


27-31 


27-63 


27-76 


27-92 


30-47* 


30-55* 


32-14* 


39-17* 


40- 


-15 




CL*ORA 


1-45 


8-237 


15-33 






















CL*ORB 


1-49 


15-30 


23-131 


29-78 






















CL*ORE 


1-49 


23-129 


29-76 
























CL*ORG 


1-31 


15-32* 
























CL*ORP 


1-48 


15-31* 


23-119 


23-132* 


29-66 


29-79* 


















CL*ORS 


1-48 


1-49 


8-238 


1 5-33* 


23-31 


23-124* 


29-35 


29-72* 














CL*RQH 


1-47 


5-65 


8-206 


17-40 


19-21 


20-16 


21-15 


21-30* 


35-16 










CL*SKP 


1-52 


8-155* 


8-328 


27-54 






















CL*STA 


1-45 


5-83* 


8-35* 


8-45* 


8-56* 


8-91* 


8-241 


8-318 


13-13 


13-18* 


13-19* 


14- 


-28* 






1 5-42* 


15-46 


1 5-50* 


17-15 


17-22* 


17-42 


17-54 


17-58* 


17-101* 


19-34* 


23-17 


23- 


-23* 






23-35 


23-46 


23-52* 


23-56 


23-62* 


23-72 


23-74* 


23-87* 


23-147* 


24-18 


25-37* 


27- 


-4* 






27-22* 


27-30* 


27-40* 


27-53* 


27-57 


27-60* 


27-65 


27-67* 


27-75* 


27-82* 


27-90* 


29- 


-18 






29-23» 


29-49 


29-51* 


29-61* 


29-95* 


30-28* 


31-15* 


39-13* 


40-20 


40-22* 


40-28 


40- 


-30* 


CLSWID 


1-51 


8-163* 


8-333 


23-103 


27-35 


27-37 


















CL*WQH 


1-47 


5-84 


8-211 


23-33 


24-29 


24-60* 


35-18 















r 
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' Cross reference table <CREF V05. 05) 

CLABF 1-47 38-21 

► CLABRT 1-25 35-9# 

« CLCLER 1-26 8-20 14-10# 

CLCLOS 8-5 13-9# 

■ CLCQE 1-48 5-20 5-22* 38-48 38-50* 38-57 38-65* 

t CLEOFS 1-37 8-268 8-355 

CLERR 5-49 6-15 6-19 6-23 6-25 6-37# 

CLGSTS 8-75 8-307 9-1 2# 

i CLINCP 1-25 16-10# 

CLIOQ 1-25 5-13# 

_ CLLQE 1-48 5~24ifr 38=49 38-51* 38-64* 

1 CLOCPY 22-31 28-19 29-9# 

CLPTWD 8-76 8-178 8-229 8-248 8-308 8-314 8-319 8-324 8-329 8-334 S~344 8-349 

- 11-15# 

f CLQOK 5-i9# 5-77 5-95 10-16 

CLQXIT 5-59 6-39 7-10 7-11 8-6 8-21 0-50 8-81 8-104 8-122 8-131 8-140 

8-148 S-156 8-164 8-183 8-192 8-221 8-230 8-249 8-279 8-286 8-368 i0-S# 

> i CLREAD 5-58 5-64# 7-34 8-57 

I CLREST 1-26 8-95 8-285 15~14# 33-14 

CLSFAB 1-39 

I CLSFBC 1-53 

CLSFCH 1-53 

CLSFCO 1-54 

t CLSFDL 1-53 

CLSFHS 1-53 

CLSFIC 1-45 

i CLSFMS 1-49 

CLSFOC 1-45 

CLSFRB 1-53 17-76 17-91 

I CLSFRL 1-50 19-22 

CLSFSL 1-54 

CLSFSO 1-54 

I CLSFSP 1-57 

CLSFSS 1-54 

CLSFSW 1-54 

I CLSFWB 1-38 

CLSPFN 5-55 6-10# 

CLSTRT 8-38 8-46 14-24 23-142 29-90 30-31 30-68 31-16 34-S# 

i CLTIMR 1-25 22-9# 

CLTOTL 1-32 22-15 35-15 

CLVERS 1-38 9-16 

< CLWRIT 5-57 5-e2# 

CLWRTB 5-83# 7-37 

CLXBRK 1-25 29-57 32-10# 

* CLXDRP 30-75 32-19 33-10# 

CLXICP 1-25 28-1 1# 

CLXMCC 29-52 30-1 3# 

' CLXSSB 30-34 31-8# 

CM*BRK 1-57 8-35 8-45 15-46 15-50 30-28 31-15 



i 



CM*CRL 1-56 15-42 23-87 27-4 27-22 27-30 27-65 27-67 27-75 27-90 



Art— "-to 



40-28 40-30 

CM«EFP 1-37 8-241 13-18 15-42 23-35 24-18 25-37 

CM*EOF 1-44 8-56 14-28 15-42 17-42 17-54 17-58 19-34 

« CM*FFI 1-34 23-72 23-74 27-60 

Cri*FFS 1-51 15-42 23-56 23-62 27-53 27-57 27-82 

f 



4 
I 
I 
I 
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Cross reference table (CREF V05. 05) 



Cr1$IRG 


1-44 


17-15 


17-22 


17-101 




















CM*MCC 


1-34 


29-49 


29-51 


29-61 




















CM*ON 


1-44 


8-91 


39-13 






















CM*ORP 


1-48 


23-17 


23-23 


23-147 


29-18 


29-23 


29-95 














CM*TBS 


1-44 


15-42 


23-46 


23-52 


27-40 


















CM*WRT 


1-35 


5-83 


13-13 


13-19 


15-42 


















C0*8BT 


1-43 


23-82 
























CO*BNI 


1-43 


17-74 


19-9 






















CO*BNO 


1-43 


23-80 
























CO*CR 


1-52 


27-92 
























C04CTL 


1-52 


27-5 
























Cu*DTR 


1-50 


8-99 


8-115 


8-120 


30-47 


30-55 


32-14 


39-17 


40- 


-15 








CO*FF 


1-42 


27-76 
























CO*FFO 


1-42 


24-37 
























CO*LC 


1-51 


23-92 
























CO*LFI 


1-42 


19-15 
























CO*LFO 


1-42 


27-63 
























CO«TAB 


1-42 


27-31 
























CQ$LNK 


1-31 


30-38* 
























CQ*LOT 


1-30 


30-33* 
























CQ*PA5 


1-30 


30-35* 
























CQ*RO 


1-31 


30-36* 
























CQ*RTN 


1-30 


30-34* 
























CQH 


4-6# 


10-9 


10-10* 


21-31 


21-32* 


24-61 


24-62* 


36-36 


36- 


-37* 


38-45 


38-47* 




CR 


3-5# 


























CS*EOF 


1-50 


17-57 
























CS*ERR 


1-41 


6-38 


11-26 


12-28 




















CTRLQ 


3-9# 


























CTRLS 


3-a# 


























CTRLZ 


3-10# 


























EOFCHR 


24-24 


25-14# 
























FF 


3-7# 


23-75 


24-40 


25-21 


27-59 


















FORCEX 


1-36 


33-31 
























FORKQ 


1-46 


38-37 
























FP*IOA 


1-46 


38-35 
























FQ*PRI 


1-46 


38-35* 
























FQ*RTN 


1-46 


38-36* 
























FRKGET 


1-46 


38-34 
























GETCHR 


23-67 


24-14# 
























GETDSS 


1-59 


8-174 


9-34 






















GETRTQ 


1-30 


30-32 
























OETWRD 


8-128 


8-137 


8-146 


8-154 


8-162 


8-189 


8-259 


12-17# 












GTBYT 


1-49 


8-269 


24-51 






















INPCHR 


17-86 


19-4 


19-24 


20-12# 




















INTPRI 


1-33 


5-25 


10-11 


15-34 


17-17 


17-23 


17-50 


17-102 


21- 


-33 


22-37 


23-24 


23-42 




23-141 


23-151 


24-63 


29-24 


29-39 


29-89 


29-99 


30-40 


33- 


-26 


36-41 


36-46 


37-32 




38-33 


38-56 


38-71 






















lOFIN 


1-34 


38-58 
























IRINGG 


5-71 


16-29 


17-9# 






















KPAR5 


1-30 


30-35 
























KPAR6 


1-52 


12-36* 
























LCDTYP 


1-38 


1-55 


14-19 


15-62 


30-66 


34-16 


41-16 














LCLUNT 


1-58 


16-15 
























LF 


3-6# 


23-60 


27-69 


27-83 




















LHIRBA 


1-40 


8-227 


15-26 


17-44 


17-93 


29-37 
















LHIRBB 


1-40 


15-23 
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i 

i 
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LHIRBG 


1-40 


15-25* 


























LHIRBP 


1-40 


15-24* 


























LHIRBS 


1-39 


8-228 


1 5-26* 


17-44 


17-93 


29-37 


















LINIR 


1-36 


33-21* 


























LINON 


5-64 


5-86 


39-9# 
























LNMAP 


1-36 


33-30 


























LSWIO 


1-43 


9-22 


14-18* 


15-59 


15-61* 


30-65* 


















LSW3 


1-32 


1-35 


8-244 


9-28 


14-14* 


15-38* 


30-64* 
















LXCL 


1-32 


28-15 


33-20* 
























MAXSFO 


6-16 


6-27 


7-12# 
























MAXSFl 


6-20 


6-26 


7-22# 
























MAXSF2 


6^24 


7-4 1# 


























MOVQ 


5-66 


5-85 


37-ll# 
























MRKTHD 


1-31 


30-38 


30-39* 
























MS*BRK 


1-57 


8-36 


30-29 
























MS*CAR 


1-56 


9-35 


























MS*DTR 


1-55 


40-23 


























MS*RNG 


1-56 


9-41 


























NEDCDO 


1-39 


34-18* 


























NEDCLO 


1-39 


34-19* 


























DRINGP 


5-91 


13-31 


22-33 


23-9# 






















OVRHC 


1-55 


41-17 


























PSW 


1-33 


5-19* 


5-25* 


10-8* 


10-11* 


1 5-22* 


1 5-34* 


17-14* 


17- 


-17* 


17-23* 


17- 


-39* 


17-50* 




17-102* 


21-29* 


21-33* 


22-37* 


23-16* 


23-24* 


23-30* 


23-42* 


23- 


-141* 


23-151* 


24- 


-59* 


24-63* 




29-17* 


29-24* 


29-34* 


29-39* 


29-89* 


29-99* 


30-37* 


30-40* 


33- 


-18* 


33-26* 


36- 


-25* 


36-41* 




36-46* 


37-23* 


37-32* 


38-20* 


38-33* 


38-56* 


38-63* 


38-71* 














PTBYT 


1-38 


8-359 


8-362 


20-22 


21-23 




















PTWRD 


1-33 


11-34 


























Q. BLKN 


1-34 


5-22 


5-41 


5-43 


5-54 


5-56* 


5-82* 


6-37 


8- 


-30 


8-110 


8- 


-202 


10-9* 




11-19 


11-24 


12-21 


12-26 


12-36 


12-40 


12-41* 


17-56 


17- 


-76 


17-91 


19- 


-22 


20-26* 




21-20 


21-30 


21-31* 


24-35 


24-35 


24-39* 


24-39* 


24-45 


24- 


-50* 


24-60 


24- 


-61* 


36-20 




36-27 


36-29 


36-35 


36-35* 


36-36* 


37-18 


37-25 


37-27* 


37- 


-28* 


38-47 


38- 


-52* 




Q. BUFF 


1-52 


11-19 


12-21 


12-40 


12-41* 




















Q. CSW 


1-41 


6-37 


11-24 


12-26 


17-56 




















Q. DEVX 


1-30 


5-43 


























Q. FUNC 


1-41 


5-54 


17-76 


17-91 


19-22 




















Q. JOB 


1-32 


S-202 


36-29 
























Q. LINK 


1-34 
37-18 


5-22 
37-25 


10-9* 
37-27* 


21-30 
37-28* 


21-31* 
38-47 


24-60 
38-52* 


24-61* 


36-20 


36- 


-27 


36-35 


36- 


-35* 


36-36* 


Q. PAR 


1-52 


12-36 


























Q. UNIT 


1-41 


5-41 


























Q. WCNT 


1-34 


5-56* 


5-82* 


8-30 


8-110 


20-26* 


21-20 


24-45 


24- 


-50* 










RDF IN 


17-59 


17-95 


19-25 


19-38 


20-32 


21-10# 


















RTNCNT 


4-5# 


38-14* 


38-70* 
























RTNQ 


8-216 


10-12 


21-37 


24-67 


35-25 


38-8# 


38-36 
















SETBRK 


8-37 


8-44 


15-49 


30-30 


31-14 


41-10# 


















SETDSS 


1-59 


40-36 


























SETDTR 


1-26 


8-100 


8-121 


8-130 


8-139 


22-24 


30-48 


30-56 


32- 


-15 


39-18 


40- 


-10# 




SETSPD 


1-35 


8-191 


























SFABT 


7-33 


8-20 1# 


























SFBREK 


7-17 


8-30# 


























SFCLER 


7-16 


S-14# 


























SFCLOS 


7-8 


8-5# 


























SFCOPT 


7-27 


8-137# 


























SFDTR 


7-21 


8-1 10# 


























SFGMS 


7-31 


8-170# 
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3FG0PT 


7-40 


S-303# 


SFGRPO 


7-8# 


7-12 


SFGRPl 


7-16# 


7-22 


SFGRP2 


7-26# 


7-41 


SFIC 


7-35 


S-227# 


SFOC 


7-36 


S-236# 


SPREAD 


7-18 


8-56# 


SFREST 


7-39 


8-285# 


SFSEFP 


7-38 


S-255# 


SFSLEN 


7-28 


8-146# 


SFSOPT 


7-26 


8-128# 


SFSPD 


7-32 


8-iB9# 


SFSSKP 


7-29 


8-154# 


SFSTAT 


7-19 


8-73# 


SFSWID 


7-30 


8-162# 


SFTERM 


7-9 


7-20 8-87# 


SILFET 


1-45 


17-64 29-43 


SPACE 


3-ll# 


23-50 27-42 


SPFRTN 


6-33 


7-4# 


TRNSTR 


1-33 


16-23 


TTINCP 


1-36 


33-21 


VCXCTL 


1-31 


29-59 


VCXTRM 


1-31 


29-55 


XL*CD 


1-59 


9-37 


XL*CTS 


1-59 


9-37 


XL*RI 


1-59 


9-43 


XL*XFR 


1-59 


9-30 


XL«XFX 


1-59 


9-24 
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DISABL 2-7# 5-19 10-8 15-22 17-14 17-39 21-29 23-16 23-30 24-59 29-17 29-34 

30-37 33-18 36-25 37-23 38-20 38-63 

ENABL 2-13# 5-25 10-11 15-34 17-17 17-23 17-50 17-102 21-33 22-37 23-24 23-42 

23-141 23-151 24-63 29-24 29-39 29-89 29-99 30-40 33-26 36-41 36-46 37-32 

I 38-33 38-56 38-71 

I OCALL 2-19# 41-17 
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